home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
68000dsm.cq
/
68000dsm.c
Wrap
Text File
|
1985-11-20
|
138KB
|
4,310 lines
Article 2660 (70 more) in net.sources:
From: jmc@inset.UUCP (John Collins)
Subject: 68000 Disassembler
Message-ID: <658@inset.UUCP>
Date: 15 Aug 85 23:11:30 GMT
Date-Received: 24 Aug 85 05:01:10 GMT
Reply-To: jmc@inset.UUCP (John Collins)
Organization: --- NONE ---
Lines: 4303
Xpath: icdoc ivax
--MORE--(0%)This is the 68000 disassembler mentioned on the net.
It is not my final version by any means, but I have found it extremely
useful and it represents severl weeks' work.
John Collins.
You should get the following files:
doc - MM macros
makefile
unc.h
alloc.c
file.c
heur.c
iset.c
libmtch.c
main.c
prin.c
robj.c
To extract /bin/sh the remainder of the file after the next line
------------------------------cut here------------------------------
# To unbundle, sh this file
echo doc 1>&2
sed 's/.//' >doc <<'//GO.SYSIN DD doc'
-.\"/*% nroff -cm -rL72 %|epson|spr -f plain.a -h uncdoc -w
-.nr Hb 7
-.nr Hs 3
-.ds HF 3 3 3 3 3 3 3
-.nr Hu 5
-.nr Hc 1
-.SA 1
-.PH "''A Disassembler''"
-.PF "'Issue %I%'- Page \\\\nP -'%G%'"
-.H 1 "Introduction"
-This document describes the first release of a disassembler for UNIX
-executable files.
-The key features are:
-.AL
-.LI
-For object files the output can be assembled to generate the same
-object module, (apart from minor variations in symbol table ordering) as the
-input.
-.LI
-For stripped executable files object modules and libraries may be scanned,
-modules in the main input identified and the appropriate names automatically
-inserted into the output.
-.LI
-An option is available to convert most non-global names into local symbols,
-which cuts down the symbols in the generated assembler file.
-.LI
-The disassembler copes reasonably with modules merged with the
-.B "-r"
-option to
-.B "ld" ,
-generating a warning message as to the number of modules involved.
-.LE
-.P
-At present this is available forcertain Motorola 68000 ports of UNIX
-System III and System V. Dependencies on
-.AL a
-.LI
-Instruction set.
-.LI
-Object module format.
-.LI
-Library module format.
-.LI
-Assembler output format.
-.LE
-.P
-are hopefully sufficiently localised to make the product useful as a
-basis for other disassemblers for other versions of UNIX.
-.P
-The product is thus distributed in source form at present.
-.H 1 "Use"
-The disassembler is run by entering:
-.DS I
-unc mainfile lib1 lib2 ...
-.DE
-.P
-The first named file is the file to be disassembled, which should be
-a single file, either an object module, a (possibly stripped) executable
-file, or a library member. Library members are designated using a
-parenthesis notation, thus:
-.DS I
-unc '/lib/libc.a(printf.o)'
-.DE
-.P
-It is usually necessary to escape the arguments in this case to prevent
-misinterpretation by the shell. Libraries in standard places such as
-.I "/lib"
-and
-.I "/usr/lib"
-may be specified in the same way as to
-.B "ld" ,
-thus
-.DS I
-unc '-lc(printf.o)'
-unc '-lcurses(wmove.o)'
-.DE
-.P
-As an additional facility, the list of directories searched for
-libraries may be varied by setting the environment variable
-.B "LDPATH" ,
-which is interpreted similarly to the shell
-.B "PATH"
-variable, and of course defaults to
-.DS I
-LDPATH=/lib:/usr/lib
-.DE
-.P
-As a further facility, the insertion of
-.B "lib"
-before and
-.B ".a"
-after the argument may be suppressed by using a capital
-.B "-L"
-argument, thus to print out the assembler for
-.I "/lib/crt0.o" ,
-then the command
-.DS I
-unc -Lcrt0.o
-.DE
-.P
-should have the desired effect.
-.P
-Second and subsequent file arguments are only referenced for stripped
-executable files, and may consist of single object files and library
-members, using the same syntax as before, or whole libraries of object
-files, thus:
-.DS I
-unc strippedfile -Lcrt0.o -lcurses -ltermcap '-lm(sqrt.o)' -lc
-.DE
-.P
-It is advisable to make some efort to put the libraries to be searched
-in the order in which they were originally loaded. This is because the
-search for each module starts where the previously matched module ended.
-However, no harm is done if this rule is not adhered to apart from
-increased execution time except in the rare cases where the disassembler
-is confused by object modules which are very nearly similar.
-.H 1 "Additional options"
-The following options are available to modify the behaviour of the
-disassembler.
-.VL 15 2
-.LI "-o file"
-Causes output to be sent to the specified file instead of the standard
-output.
-.LI "-t prefix"
-Causes temporary files to be created with the given prefix. The default
-prefix is
-.B "split" ,
-thus causing two temporary files to be created with this prefix in the
-current directory. If it is desired, for example, to create the files as
-.B "/tmp/xx*" ,
-then the argument
-.B "-t /tmp/xx"
-should be given. Note that the temporary files may be very large as a
-complete map of the text and data segments is generated.
-.LI "-a"
-Suppresses the generation of non-global absolute symbols from the
-output. This saves output from C compilations without any obvious
-problems, but the symbols are by default included in the name of
-producing as nearly identical output as possible to the original source.
-.LI "-s"
-Causes an additional scan to take place where all possible labels are
-replaced by local symbols. The local symbols are inserted in strictly
-ascending order, starting at 1.
-.LI "-v"
-Causes a blow-by-blow account of activities to be output on the standard
-error.
-.LE
-.H 1 "Diagnostics etc"
-Truncated or garbled object and library files usually cause processing
-to stop with an explanatory message.
-.P
-The only other kinds of message are some passing warnings concerning
-obscure constructs not handled, such as the relocation of byte fields,
-or the relocation of overlapping fields. Occasionally a message
-.DS I
-Library clash: message
-.DE
-.P-may appear and processing cease. This message is found where at a late
-stage in processing libraries, the program discovers that due to the
-extreme similarity of two or more library members, it has come to the
-wrong conclusion about which one to use. The remedy here is to spell out
-to the program which members to take in which order.
-.H 1 "Future development"
-In the future it is hoped to devise ways of making the disassembler
-independent of all the above-mentioned version dependencies, by first
-reading a files defining these things. This will probably be applied
-after the Common Object Format becomes more standard.
-.P
-In the long term it would be desirable and useful to enhance the product
-to produce compilable C in addition to assemblable assembler. Stages in
-the process are seen as follows:
-.AL
-.LI
-Better identification of basic blocks in the code. Switch statements are
-a major problem here, as are constant data held in the text segment.
-.LI
-Marrying of data to the corresponding text. It is in various places hard
-to divorce static references "on the fly" (e.g. strings, and switch
-lists in some implementations) from static at the head of a module. This
-is part of the problem of identifying basic blocks.
-.LI
-Compilation of header files to work out structure references within the
-text. At this stage some interaction may be needed.
-.LE
-.P
-Meanwhile the product is one which is a useful tool to the author in its
-present form. Comments and suggestions as to the most practical method
-of improving the product in the ways suggested or in other ways would be
-gratefully considered.
//GO.SYSIN DD doc
echo makefile 1>&2
sed 's/.//' >makefile <<'//GO.SYSIN DD makefile'
-CFLAGS=-v -OB
-OBJS=alloc.o file.o libmtch.o robj.o iset.o prin.o heur.o main.o
-
-unc: $(OBJS)
- cc -o unc $(OBJS)
-
-$(OBJS): unc.h
//GO.SYSIN DD makefile
echo unc.h 1>&2
sed 's/.//' >unc.h <<'//GO.SYSIN DD unc.h'
-/*
- * SCCS: @(#)unc.h 1.2 11/2/84 1421:02
- * Header file for uncompile program.
- *
- ***********************************************************************
- * This software is copyright of
- *
- * John M Collins
- * 47 Cedarwood Drive
- * St Albans
- * Herts, AL4 0DN
- * England +44 727 57267
- *
- * and is released into the public domain on the following conditions:
- *
- * 1. No free maintenance will be guaranteed.
- * 2. Nothing may be based on this software without
- * acknowledgement, including incorporation of this
- * notice.
- *
- * Notwithstanding the above, the author welcomes correspondence and bug
- * fixes.
- ***********************************************************************
- */
-
-#define MAXCHARS 50
-#define HASHMOD 97
-
-/*
- * The following structure is used to keep track of symbols.
- */
-
-struct symstr {
- struct symstr *s_next; /* Next in hash chain */
- struct symstr *s_link; /* Next in duplicate labels */
- unsigned s_type : 3; /* Symbol type */
- unsigned s_newsym: 1; /* A new symbol */
- unsigned s_invent: 1; /* Invented symbol */
- unsigned s_glob : 1; /* Global symbol */
- long s_value; /* Value if defined */
- short s_defs; /* Defined count */
- short s_used; /* Used count */
- unsigned short s_lsymb; /* Local symbol */
- char s_name[1]; /* Chars of name null term */
-};
-
-typedef struct symstr *symbol;
-
-symbol symbhash[HASHMOD];
-
-typedef struct {
- int ef_t; /* Text file fd */
- int ef_d; /* Data file fd */
- long ef_entry; /* Entry point */
- long ef_tsize; /* Text size */
- long ef_dsize; /* Data size */
- long ef_bsize; /* Bss size */
- long ef_end; /* End of it all */
- long ef_tbase; /* Text base */
- long ef_dbase; /* Data base */
- long ef_bbase; /* Bss base */
- int ef_stcnt; /* Number of symbols */
- int ef_stmax; /* Max number of symbols */
- symbol *ef_stvec; /* Symbol vector */
-} ef_fids;
-
-typedef ef_fids *ef_fid;
-
-/*
- * Description of word in text file. This entry is held in the place
- * corresponding to the address in the text file.
- */
-
-typedef struct {
- unsigned short t_contents; /* Actual contents */
- unsigned short t_iindex; /* Index in table */
- unsigned t_type : 2; /* Type */
- unsigned t_vins : 1; /* Valid instruction */
- unsigned t_bdest : 1; /* Is branch dest */
- unsigned t_gbdest: 1; /* Is global dest */
- unsigned t_dref : 1; /* Refered to in data */
- unsigned t_bchtyp: 2; /* Branch type */
- unsigned t_lng : 3; /* Length in words */
- unsigned t_reloc : 2; /* Relocatable */
- unsigned t_rptr : 2; /* Where relocated */
- unsigned t_rdisp : 1; /* Relocatable displacement */
- unsigned t_isrel : 1; /* Relocated */
- unsigned t_amap : 1; /* Worked out */
- symbol t_relsymb; /* Relocation symbol */
- long t_reldisp; * Offset + or - from symb */
- symbol t_lab; /* Label */
- unsigned short t_lsymb; /* Local symbol */
- long t_reflo; /* Lowest place referred */
- long t_refhi; /* Highest place referred */
- unsigned short t_match; /* Lib match lng */
-} t_entry;
-
-/*
- * Types ......
- */
-
-#define T_UNKNOWN 0
-#define T_BEGIN 1
-#define T_CONT 2
-
-#define R_NONE 0 /* No relocation */
-#define R_BYTE 1 /* Byte relocation */
-#define R_WORD 2 /* Word relocation */
-#define R_LONG 3 /* Long relocation */
-
-/*
- * Branch types.
- */
-
-#define T_NOBR 0
-#define T_CONDBR 1
-#define T_UNBR 2
-#define T_JSR 3
-
-typedef struct {
- unsigned char d_contents; /* Actual contents */
- unsigned d_type : 4; /* Data type */
- unsigned d_reloc : 2; /* Relocatable */
- unsigned d_rptr : 2; /* Where relocated */
- short d_lng; /* Length -ve for D_CONT */
- symbol d_relsymb; /* Relocation symbol */
- long d_reldisp; /* Offset + or - from symb */
- symbol d_lab; /* Label */
-} d_entry;
-
-/*
- * Data types.
- */
-
-#define D_ASC 0 /* Ascii chars */
-#define D_ASCZ 1 /* Null-term ascii */
-#define D_BYTE 2 /* Decimal bytes */
-#define D_WORD 3 /* Words */
-#define D_LONG 4 /* Longs */
-#define D_ADDR 5 /* Address pointer */
-#define D_CONT 6 /* Continuation of last */
-
-/*
- * 'Common' items.
- */
-
-struct commit {
- symbol *c_symb; /* List of symbols */
- int c_int; /* Current number */
- int c_max; /* Maximum */
-};
-
-/*
- * Library file description.
- */
-
-struct libit {
- int lf_fd; /* File descriptor */
- long lf_offset; /* Offset of current file */
- long lf_next; /* Offset of next file */
- char lf_name[14]; /* Name of item */
-};
//GO.SYSIN DD unc.h
echo alloc.c 1>&2
sed 's/.//' >alloc.c <<'//GO.SYSIN DD alloc.c'
-/*
- * SCCS: @(#)alloc.c 1.2 11/2/84 14:17:20
- * Allocate space etc.
- *
- ***********************************************************************
- * This software is copyright of
- *
- * John M Collins
- * 47 Cedarwood Drive
- * St Albans
- * Herts, AL4 0DN
- * England +44 727 57267
- *
- * and is released into the public domain on the following conditions:
- *
- * 1. No free maintenance will be guaranteed.
- * 2. Nothing may be based on this software without
- * acknowledgement, including incorporation of this
- * notice.
- *
- * Notwithstanding the above, the author welcomes correspondence and bug
- * fixes.
- ***********************************************************************
- */
-
-#include <stdio.h>
-#include <a.out.h>
-#include <setjmp.h>
-#include "unc.h"
-
-#define STINC 10
-
-char *malloc(), *realloc();
-char *strncpy();
-void gette(), getde(), setde(), putte(), putde();
-void unimpl();
-long gettw();
-
-ef_fids mainfile;
-
-/*
- * Oops! out of memory.....
- */
-
void nomem()
-{
- (void) fprintf(stderr, "Sorry - run out of memory\n");
- exit(255);
-}
-
-/*
- * Look up hash value of symbol.
- */
-
-unsigned shash(str)
-register char *str;
-{
- register unsigned result = 0;
- register int cnt = 0;
-
- while (*str && cnt < MAXCHARS) {
- result += *str++;
- cnt++;
- }
- return result % HASHMOD;
-}
-
-/*
- * Look up hash value of symbol, possibly allocating a new symbol.
- */
-
-symbol lookup(str)
-char *str;
-{
- register symbol res, *pp;
- register int len;
-
- pp = &symbhash[shash(str)];
- res = *pp;
- while (res != NULL) {
- if (strncmp(res->s_name, str, MAXCHARS) == 0)
- return res;
- pp = &res->s_next;
- res = *pp;
- }
- for (len = 0; len < MAXCHARS; len++)
- if (str[len] == '\0')
- break;
- len++;
- res = (symbol) malloc(sizeof(struct symstr) + len);
- if (res == NULL)
- nomem();
- *pp = res;
- res->s_next = NULL;
- (void) strncpy(res->s_name, str, len);
- res->s_name[len] = '\0'; /* Null-terminate */
- res->s_newsym = 1;
- res->s_glob = 0;
- res->s_invent = 0;
- res->s_link = NULL;
- res->s_used = 0;
- res->s_defs = 0;
- res->s_lsymb = 0;
- return res;
-}
-
-/*
- * Invent a symbol, making sure that we don't know it.
- */
-
-symbol inventsymb(prefix)
-char *prefix;
-{
- static int nsymb = 0;
- char schars[10];
- register symbol res;
-
- do (void) sprintf(schars, "%s%d", prefix, ++nsymb);
- while (!(res = lookup(schars))->s_newsym);
-
- res->s_newsym = 0;
- res->s_invent = 1;
- return res;
-}
-
-/*
- * Reallocate symboltable.
- */
-
-void reallst(outf)
-register ef_fid outf;
-{
- outf->ef_stmax += STINC;
- if (outf->ef_stvec == NULL)
- outf->ef_stvec = (symbol *) malloc(outf->ef_stmax * sizeof(symbol));
- else
- outf->ef_stvec = (symbol *) realloc(outf->ef_stvec,
- outf->ef_stmax * sizeof(symbol));
- if (outf->ef_stvec == NULL)
- nomem();
-}
-
-/*
- * Search through existing symbol table for symbol with given
- * value. Invent a new one if needed.
- */
-
-symbol getnsymb(fid, seg, pos)
-register ef_fid fid;
-unsigned seg;
-long pos;
-{
- register int i;
- register symbol res;
-
- /*********** MACHINE DEPENDENT ******************************
- * Convert relocation segment type (argument) to symbol type
- * (as remembered in symbol table). Don't ask me why they
- * have to be different.....
- */
-
- seg += TEXT - RTEXT;
-
- /*
- * See if the reference is to an external symbol.
- * If so, use that.
- */
-
- for (i = 0; i < fid->ef_stcnt; i++) {
- res = fid->ef_stvec[i];
- if (res->s_type == seg && res->s_value == pos)
- return res;
- }
-
- /*
- * Invent a symbol and use that.
- */
-
- res = inventsymb("RS");
- if (fid->ef_stcnt >= fid->ef_stmax)
- reallst(fid);
- fid->ef_stvec[fid->ef_stcnt++] = res;
- res->s_type = seg;
- res->s_value = pos;
- if (seg == TEXT) {
- t_entry tent;
- gette(fid, pos, &tent);
- tent.t_bdest = 1;
- tent.t_lab = res;
- putte(fid, pos, &tent);
- }
- else if (seg == DATA || seg == BSS) {
- d_entry dent;
- getd(fid, pos, &dent);
- dent.d_lab = res;
- putde(fid, pos, &dent);
- }
-
- return res;
-}
-
-/*
- * Assuming address given is in text segment, find its label, or invent
- * one. Also set where refered from.
- */
-
-symbol textlab(loc, refpos)
-long loc, refpos;
-{
- t_entry tent;
-
- gette(&mainfile, loc, &tent);
- if (tent.t_type == T_CONT)
- return NULL;
- if (tent.t_lab == NULL) {
- tent.t_lab = inventsymb("TS");
- tent.t_lab->s_type = TEXT;
- tent.t_lab->s_value = loc;
- tent.t_bdest = 1;
- putte(&mainfile, loc, &tent);
- }
- else
- tent.t_lab->s_used++;
- if (tent.t_refhi < refpos) {
- tent.t_refhi = refpos;
- putte(&mainfile, loc, &tent);
- }
- if (tent.t_reflo > refpos) {
- tent.t_reflo = refpos;
- putte(&mainfile, loc, &tent);
- }
- return tent.t_lab;
-}
-
-/*
- * Note references to data.
- */
-
-void mkdref(tpos, size)
-long tpos;
-unsigned size;
-{
- t_entry tent;
- d_entry dent;
- register symbol ds;
- int dchng = 0;
- int wsize;
- long dpos;
-
- gette(&mainfile, tpos, &tent);
- if (tent.t_relsymb != NULL)
- return;
-
- dpos = gettw(&mainfile, tpos, R_LONG);
- if (dpos < mainfile.ef_dbase || dpos > mainfile.ef_end)
- return;
-
- switch (size) {
- default:
- wsize = D_BYTE;
- break;
- case 2:
- wsize = D_WORD;
- break;
- case 4:
- wsize = D_LONG;
- break;
- }
-
- getde(&mainfile, dpos, &dent);
- if ((ds = dent.d_lab) == NULL) {
- if (dpos >= mainfile.ef_bbase)
- ds = inventsymb("BS");
- ds->s_type = BSS;
- }
- else {
- ds = inventsymb("DS");
- ds->s_type = DATA;
- }
- ds->s_value = dpos;
- dent.d_lab = ds;
- dchng++;
- }
- else
- ds->s_used++;
-
- if (dent.d_type != D_BYTE) {
- if (dent.d_type != wsize) {
- if (dent.d_type == D_ADDR) {
- if (wsize != D_LONG)
- unimpl("Addr word usage");
- }
- else if (dent.d_type > wsize) {
- dchng++;
- dent.d_type = wsize;
- dent.d_lng = size;
- }
- }
- }
- else {
- dent.d_type = wsize;
- dent.d_lng = size;
- dchng++;
- }
- if (dchng) {
- putde(&mainfile, dpos, &dent);
- for (dchng = 1; dchng < size; dchng++)
- setde(&mainfile, dpos+dchng, D_CONT, 1);
- }
-
- tent.t_relsymb = ds;
- putte(&mainfile, tpos, &tent);
-}
-
-/*
- * Add item to common or abs list.
- */
-
-#define COMINC 10
-
-void addit(cp, symb)
-register struct commit *cp;
-symbol symb;
-{
- if (cp->c_int >= cp->c_max) {
- cp->c_max += COMINC;
- if (cp->c_symb == NULL)
- cp->c_symb = (symbol *) malloc(COMINC*sizeof(symbol));
- else
- cp->c_symb = (symbol *)
- realloc(cp->c_symb,
- cp->c_max * sizeof(symbol));
- if (cp->c_symb == NULL)
- nomem();
- }
- cp->c_symb[cp->c_int++] = symb;
-}
//GO.SYSIN DD alloc.c
echo file.c 1>&2
sed 's/.//' >file.c <<'//GO.SYSIN DD file.c'
-/*
- * SCCS: @(#)file.c 1.2 11/2/84 14:17:35
- * Various operations on files.
- *
- ***********************************************************************
- * This software is copyright of
- *
- * John M Collins
- * 47 Cedarwood Drive
- * St Albans
- * Herts, AL4 0DN
- * England +44 727 57267
- *
- * and is released into the public domain on the following conditions:
- *
- * 1. No free maintenance will be guaranteed.
- * 2. Nothing may be based on this software without
- * acknowledgement, including incorporation of this
- * notice.
- *
- * Notwithstanding the above, the author welcomes correspondence and bug
- * fixes.
- ***********************************************************************
- */
-
-#include <stdio.h>
-#include <a.out.h>
-#include "unc.h"
-
-long lseek();
-void unimpl();
-
-/*
- * Validate addr and get text entry corresponding to it from the given
- * file.
- */
-
-void gette(fid, addr, te)
-register ef_fid fid;
-register long addr;
-t_entry *te;
-{
- addr -= fid->ef_tbase;
- if (addr < 0 || addr > fid->ef_tsize || (addr & 1) != 0) {
- (void) fprintf(stderr, "Invalid text address %lx\n", addr);
- exit(200);
- }
- (void) lseek(fid->ef_t, (long)(addr * sizeof(t_entry)/2), 0);
- if (read(fid->ef_t, (char *) te, sizeof(t_entry)) != sizeof(t_entry)) {
- (void) fprintf(stderr, "Trouble reading text at %lx\n", addr);
- exit(201);
- }
-}
-
-/*
- * Store a text entry.
- */
-
-void putte(fid, addr, te)
-register ef_fid fid;
-register long addr;
-t_entry *te;
-{
- addr -= fid->ef_tbase;
- if (addr < 0 || addr > fid->ef_tsize || (addr & 1) != 0) {
- (void) fprintf(stderr, "Invalid text address %lx\n", addr);
- exit(200);
- }
- (void) lseek(fid->ef_t, (long)(addr * sizeof(t_entry)/2), 0);
- (void) write(fid->ef_t, (char *) te, sizeof(t_entry));
-}
-
-/*
- * Validate addr and get data entry corresponding to it from the given
- * file.
- */
-
-void getde(fid, addr, de)
-register ef_fid fid;
-register long addr;
-d_entry *de;
-{
- if (addr < fid->ef_dbase || addr > fid->ef_end) {
- (void) fprintf(stderr, "Invalid data address %lx\n", addr);
- exit(200);
- }
- addr -= fid->ef_dbase;
- (void) lseek(fid->ef_d, (long)(addr * sizeof(d_entry)), 0);
- if (read(fid->ef_d, (char *) de, sizeof(d_entry)) != sizeof(d_entry)) {
- (void) fprintf(stderr, "Trouble reading data at %lx\n", addr);
- exit(201);
- }
-}
-
-/*
- * Store a data entry.
- */
-
-void putde(fid, addr, de)
-register ef_fid fid;
-register long addr;
-d_entry *de;
-{
- if (addr < fid->ef_dbase || addr > fid->ef_end) {
- (void) fprintf(stderr, "Invalid data address %lx\n", addr);
- exit(200);
- }
- addr -= fid->ef_dbase;
- (void) lseek(fid->ef_d, (long)(addr * sizeof(d_entry)), 0);
- (void) write(fid->ef_d, (char *) de, sizeof(d_entry));
-}
-
-/*
- * Set type and length of given data entry.
- */
-
-void setde(fid, addr, type, lng)
-ef_fid fid;
-long addr;
-unsigned type;
-int lng;
-{
- d_entry dat;
-
- if (addr > fid->ef_end)
- return;
- getde(fid, addr, &dat);
- if (type == D_CONT && dat.d_reloc != R_NONE) {
- char obuf[30];
- (void) sprintf(obuf, "overlapped reloc 0x%x", addr);
- unimpl(obuf);
- }
- dat.d_type = type;
- at.d_lng = lng;
- putde(fid, addr, &dat);
-}
-
-/*
- * Get a word of data file, size as requested.
- */
-
-long getdw(fid, pos, size)
-register ef_fid fid;
-long pos;
-int size;
-{
- d_entry dat;
- register long res;
- register int i, lt;
-
- getde(fid, pos, &dat);
-
- switch (size) {
- case R_BYTE:
- return dat.d_contents;
-
- case R_LONG:
- lt = 4;
- goto rest;
-
- case R_WORD:
- lt = 2;
- rest:
- res = dat.d_contents;
- for (i = 1; i < lt; i++) {
- getde(fid, pos+i, &dat);
- res = (res << 8) + dat.d_contents;
- }
- return res;
-
- default:
- (void) fprintf(stderr, "Data word size error\n");
- exit(20);
- }
- /*NOTREACHED*/
-}
-
-/*
- * Get a word of text file.
- */
-
-long gettw(fid, pos, size)
-register ef_fid fid;
-long pos;
-int size;
-{
- t_entry tex;
- long res;
-
- gette(fid, pos, &tex);
-
- switch (size) {
- case R_BYTE:
- return tex.t_contents >> 8;
-
- case R_WORD:
- return tex.t_contents;
-
- case R_LONG:
- res = tex.t_contents;
- gette(fid, pos+2, &tex);
- return (res << 16) + tex.t_contents;
- default:
- (void) fprintf(stderr, "Text word size error\n");
- exit(20);
- }
- /*NOTREACHED*/
-}
//GO.SYSIN DD file.c
echo heur.c 1>&2
sed 's/.//' >heur.c <<'//GO.SYSIN DD heur.c'
-/*
- * SCCS: @(#)heur.c 1.2 11/2/84 14:17:46
- * Attempt to guess things about the file.
- *
- **********************************************************************
- * This software is copyright of
- *
- * John M Collins
- * 47 Cedarwood Drive
- * St Albans
- * Herts, AL4 0DN
- * England +44 727 57267
- *
- * and is released into the public domain on the following conditions:
- *
- * 1. No free maintenance will be guaranteed.
- * 2. Nothing may be based on this software without
- * acknowledgement, including incorporation of this
- * notice.
- *
- * Notwithstanding the above, the author welcomes correspondence and bug
- * fixes.
- ***********************************************************************
- */
-
-#include <stdio.h>
-#include <a.out.h>
-#include "unc.h"
-
-#define INITDAT 256
-#define INCDAT 128
-
-#define STRSCNT 3
-#define STRECNT 3
-
-char *malloc(), *realloc();
-
-void gette(), getde(), setde(), putte(), putde();
-void nomem();
-long getdw();
-symbol inventsymb();
-
-long endt;
-ef_fids mainfile;
-
-/*
- * Talk about implemented things.....
- */
-
-void unimpl(msg)
-char *msg;
-{
- (void) fprintf(stderr, "Warning: handling of \"%s\" not implemented\n", msg);
-}
-
-/*
- * Return 1 if string char, otherwise 0.
- */
-
-int possstr(x)
-unsigned x;
-{
- if (x >= ' ' && x <= '~')
- return 1;
- if (x == '\n' || x == '\t')
- return 1;
- return 0;
-}
-
-/*
- * Guess things about data files.
- */
-
-void intudat(fid)
-ef_fid fid;
-{
- register int i, j;
- int lt, input, invcnt;
- long offs, soffs, endd;
- d_entry fdat;
- unsigned char *inbuf;
- int ibsize;
-
- inbuf = (unsigned char *)malloc(INITDAT);
- if (inbuf == NULL)
- nomem();
- ibsize = INITDAT;
-
- offs = fid->ef_dbase;
- endd = fid->e_bbase;
-
- while (offs < endd) {
- getde(fid, offs, &fdat);
- if (fdat.d_type != D_BYTE) {
- offs += fdat.d_lng;
- continue;
- }
-
- /*
- * Looks like general data. Read in as much as possible.
- */
-
- input = 0;
- soffs = offs;
- do {
- if (input >= ibsize) {
- ibsize += INCDAT;
- inbuf = (unsigned char *)
- realloc((char *)inbuf, (unsigned)ibsize);
- if (inbuf == NULL)
- nomem();
- }
- inbuf[input++] = fdat.d_contents;
- offs++;
- if (offs >= endd)
- break;
- getde(fid, offs, &fdat);
- } while (fdat.d_type == D_BYTE && fdat.d_lab == NULL);
-
- /*
- * Now split up the data.
- */
-
- for (i = 0; i < input; ) {
-
- /*
- * Might be a string.
- */
-
- if (possstr(inbuf[i])) {
- lt = input;
- if (i + STRSCNT < lt)
- lt = i + STRSCNT;
- for (j = i + 1; j < lt; j++) {
- if (inbuf[j] == '\0')
- break;
- if (!possstr(inbuf[j]))
- goto notstr;
- }
-
- /*
- * Looks like a string then.
- */
-
- invcnt = 0;
- for (j = i + 1; j < input; j++) {
- if (inbuf[j] == '\0') {
- j++;
- break;
- }
- if (possstr(inbuf[j]))
- invcnt = 0;
- else {
- invcnt++;
- if (invcnt >= STRECNT) {
- j -= invcnt - 1;
- break;
- }
- }
- }
-
- setde(fid,
- soffs+i,
- (unsigned)(inbuf[j-1]=='\0'?D_ASCZ:D_ASC),- j - i);
- for (i++; i < j; i++)
- setde(fid, soffs+i, D_CONT, 1);
- continue;
- }
-
-notstr:
- /*
- * If on odd boundary, treat as a byte.
- */
-
- if ((soffs + i) & 1 || i + 1 >= input) {
- setde(fid, soffs + i, D_BYTE, 1);
- i++;
- continue;
- }
-
- /*
- * Treat as longs unless not enough.- */
-
- if (i + 3 >= input) {
- setde(fid, soffs + i, D_WORD, 2);
- setde(fid, soffs + i + 1, D_CONT, -1);
- i += 2;
- continue;
- }
-
- /*
- * Treat as a long but mark changable.
- */
-
- setde(fid, soffs + i, D_LONG, 4);
- for (j = 1; j < 4; j++)
- setde(fid, soffs + i + j, D_CONT, -j);
- i += 4;
- }
- }
- free((char *)inbuf);
-
- /*
- * Now zap bss segment.
- */
-
- offs = fid->ef_bbase;
- endd = fid->ef_end;
-
- while (offs < endd) {
- getde(fid, offs, &fdat);
- if (fdat.d_type != D_BYTE) {
- offs += fdat.d_lng;
- continue;
- }
-
- soffs = offs;
- do {
- offs++;
- if (offs >= endd)
- break;
- getde(fid, offs, &fdat);
- } while (fdat.d_type == D_BYTE && fdat.d_lab == NULL);
-
- setde(fid, soffs, D_BYTE, (int)(offs-soffs));
- for (i = -1, soffs++; soffs < offs; i--, soffs++)
- setde(fid, soffs, D_CONT, i);
- }
-}
-
-/*
- * For non relocatable files, try to identify address pointers in
- * the data.
- */
-
-void inturdat(fid)
-ef_fid fid;
-{
- register long offs = fid->ef_dbase;
- register int i;
- register symbol ds;
- long endd = fid->ef_bbase;
- long cont;
- d_entry dent, refdent;
-
- while (offs < endd) {
- getde(fid, offs, &dent);
- if (dent.d_type != D_LONG)
- goto endit;
- cont = getdw(fid, offs, R_LONG);
- if (cont < fid->ef_dbase || cont > fid->ef_end)
- goto endit;
- getde(fid, cont, &refdent);
- if (refdent.d_type == D_CONT) {
- d_entry pdent;
- int siz;
-
- if (refdent.d_lng >= 0)
- goto endit;
- getde(fid, cont+refdent.d_lng, &pdent);
- i = -refdent.d_lng;
- refdent.d_lng += pdent.d_lng;
- pdent.d_lng = i;
- if (pdent.d_type == D_LONG && i == 2)
- siz = D_WORD;
- else
- siz = D_BYTE;
- refdent.d_type = siz;
- pdent.d_type = siz;
- putde(fid, cont - i, &pdent);
- for (i = 1; i < refdent.d_lng; i++)
- setde(fid, cont+i, D_CONT, -i);
- }
- if ((ds = refdent.d_lab) == NULL) {
- if (cont >= fid->ef_bbase) {
- ds = inventsymb("BS");
- ds->s_type = BSS;
- }
- else {
- ds = inventsymb("DS");
- ds->s_type = DATA;
- }
- ds->s_value = cont;
- refdent.d_lab = ds;
- putde(fid, cont, &refdent);
- }
- else
- ds->s_used++;
- dent.d_type = D_ADDR;
- dent.d_relsymb = ds;
- dent.d_rptr = ds->s_type;
- putdefid, offs, &dent);
- for (i = 1; i < 4; i++)
- setde(fid, offs+i, D_CONT, 1);
-endit:
- offs += dent.d_lng;
- }
-}
-
-/*
- * Recursively follow through the code, stopping at unconditional
- * branches and invalid instructions.
- */
-
-void follseq(pos)
-long pos;
-{
- t_entry tent;
- int lng;
- long npos;
-
- while (pos < endt) {
- gette(&mainfile, pos, &tent);
- if (tent.t_amap) /* Been here */
- return;
- tent.t_amap = 1;
- lng = findinst(&tent, pos);
- npos = pos + lng*2;
- if (npos > endt) {
- tent.t_vins = 0;
- tent.t_lng = 1;
- tent.t_type = T_UNKNOWN;
- lng = 0;
- npos = endt;
- }
- putte(&mainfile, pos, &tent);
- pos = npos;
-
- if (lng <= 0)
- return;
-
- switch (tent.t_bchtyp) {
- case T_UNBR:
- if (tent.t_relsymb == NULL)
- return;
- pos = tent.t_relsymb->s_value;
- continue;
- case T_JSR:
- if (tent.t_relsymb != NULL)
- follseq(tent.t_relsymb->s_value);
- continue;
- case T_CONDBR:
- follseq(tent.t_relsymb->s_value);
- default:
- continue;
- }
- }
-}
-
-
-/*
- * Try to work out things about text files.
- */
-
-void intutext()
-{
- long pos;
- t_entry tent;
- int lng;
-
- endt = mainfile.ef_tbase + mainfile.ef_tsize;
- pos = mainfile.ef_entry;
-nextv:
- for (; pos < endt;) {
- gette(&mainfile, pos, &tent);
- if (!tent.t_amap && tent.t_vins) {
- follseq(pos);
- pos += 2;
- goto nextiv;
- }
- pos += tent.t_lng * 2;
- if (tent.t_bchtyp == T_UNBR)
- goto nextiv;
- }
- goto dorest;
-nextiv:
- for (; pos < endt; pos += 2) {
- gette(&mainfile, pos, &tent);
- if (tent.t_bdest)
- goto nextv;
- }
-dorest:
- /*
- * Deal with unmapped instructions.
- */
-
- for (pos = 0; pos < endt;) {
- gette(&mainfile, pos, &tent);
- switch (tent.t_type) {
- case T_BEGIN:
- pos += tent.t_lng * 2;
- continue;
- case T_UNKNOWN:
- if (tent.t_vins) {
- lng = findinst(&tent, pos);
- putte(&mainfile, pos, &tent);
- if (lng > 0) {
- pos += lng * 2;
- continue;
- }
- }
- default:
- pos += 2;
- continue;
- }
- }
-}
-
-/*
- * Invent local symbols.
- */
-
-void intlsym()
-{
- long bpos, epos, hiref, hipos;
- unsigned llnum;
- t_entry tent;
- register symbol tl;
-
- endt = mainfile.ef_tbase + mainfile.ef_tsize;
- epos = mainfile.ef_entry;
- for (;;) {
- bpos = epos;
- hiref = bpos;
- if (epos >= endt)
- return;
- gette(&mainfile, epos, &tent);
- epos += tent.t_lng * 2;
- for (; epos < endt;) {
- gette(&mainfile, epos, &tent);
- if (tent.t_gbdest || tent.t_dref)
- break;
- if (tent.t_reflo < bpos)
- break;
- if (tent.t_refhi > hiref) {
- hiref = tent.t_refhi;
- hipos = epos;
- }
- epos += tent.t_lng * 2;
- }
- if (hiref > epos)
- epos = hipos;
- llnum = 0;
- for (hipos = bpos; hipos < epos;) {
- gette(&mainfile, hipos, &tent);
- if (!tent.t_gbdest && !tent.t_dref &&
- tent.t_reflo >= bpos && tent.t_refhi < epos &&
- (tl = tent.t_lab) != NULL)
- tl->s_lsymb = ++llnum;
- hipos += tent.t_lng * 2;
- }
- }
-}
-
-/*
- * Given the main file, a possible candidate for matching in the
- * file and an offset, see if text matches. Return 1 if matches,
- * or 0 if no match.
- */
-
-int matchup(mf, lf, startpos)
-register ef_fid mf, lf;
-long startpos;
-{
- register int i, matches = 0;
- t_entry ltent, mtent;
-
- if (lf->ef_tsize > mf->ef_tsize - startpos + mf->ef_tbase)
- return 0; /* At end - can't fit */
-
- for (i = 0; i < lf->ef_tsize; i += 2) {
- gette(lf, lf->ef_tbase + i, <ent);
- if (ltent.t_isrel)
- continue;
- gette(mf, startpos + i, &mtent);
- if (mtent.t_contents != ltent.t_contents)
- return 0;
- matches++;
- }
-
- /*
- * Give up on zero length or all relocatable fils.
- */
-
- return matches > 0;
-}
-
-/*
- * Scan through main file looking for a match.
- */
-
-long findstart(mf, lf)
-register ef_fid mf, lf;
-{
- register long res = mf->ef_tbase;
- long lim = mf->ef_tbase + mf->ef_tsize - lf->ef_tsize;
- t_entry tent;
-
-restart:
- for (; res <= lim; res += 2) {
- gette(mf, res, &tent);
- if (tent.t_match != 0) {
- res += tent.t_match;
- goto restart;
- }
- if (matchup(mf, lf, res))
- return res;
- }
- return -1;
-}
-
-/*
- * Mark the head of a matched module to save searching.
- */
-
-void markmatch(mf, lf, pos)
-ef_fid mf, lf;
-long pos;
-{
- t_entry tent;
-
- gette(mf, pos, &tent);
- tent.t_match = (unsigned) lf->ef_tsize;
- putte(mf, pos, &tent);
-}
//GO.SYSIN DD heur.c
echo iset.c 1>&2
sed 's/.//' >iset.c <<'//GO.SYSIN DD iset.c'
-/*
- * SCCS: @(#)iset.c 1.2 11/2/84 14:18:23
- * Decode instructions.
- *
- ***********************************************************************
- * This software is copyright of
- *
- * John M Collins
- * 47 Cedarwood Drive
- * St Albans
- * Herts, AL4 0DN
- * England +44 727 57267
- *
- * and is released into the public domain on the following conditions:
- *
- * 1. No free maintenance will be guaranteed.
- * 2. Nothing may be based on this software without
- * acknowledgement, including incorporation of this
- * notice.
- *
- * Notwithstanding the above, the author welcomes correspondence and bug
- * fixes.
- ***********************************************************************
- */
-
-#include <stdio.h>
-#include <a.out.h>
-#include "unc.h"
-
-ef_fids mainfile;
-long endt;
-
-void gette(), putte();
-void mkdref();
-long gettw();
-symbol textlab();
-
-int l1(), l2(), el1(), lea(), lmove(), lcbch(), jj();
-int limed(), lsbit(), lmvml(), lone(), loone(), lonew(), lonel();
-
-int pmove(), pcbch(), pdbcc(), pscc(), pcs(), pmovc(), pstop(), pexg();
-int pimed(), pmovp(), psbit(), pdbit(), pcs2(), pone(), ppea();
-int plea(), pdreg(), pmvml(), ptrap(), plink(), pareg(), podreg();
-int pqu(), pmqu(), ptreg(), pcmpm(), pomode(), pmshf(), pshf();
-
-struct opstr {
- unsigned short mask;
- unsigned short match;
- int (*opsize)();
- int (*opprin)();
- char *prarg;
-} optab[] = {
- 0xf000, 0x2000, lmove, pmove, "l",
- 0xf000, 0x3000, lmove, pmove, "w",
- 0xf000, 0x1000, lmove, pmove, "b",
- 0xf000, 0x6000, lcbch, pcbch, 0,
- 0xffbf, 0x003c, l2, pcs, "or",
- 0xff00, 0x0000, limed, pimed, "or",
- 0xffbf, 0x023c, l2, pcs, "and",
- 0xff00, 0x0200, limed, pimed, "and",
- 0xff00, 0x0400, limed, pimed, "sub",
- 0xff00, 0x0600, limed, pimed, "add",
- 0xffbf, 0x0a3c, l2, pcs, "eor",
- 0xff00, 0x0a00, limed, pimed, "eor",
- 0xff00, 0x0c00, limed, pimed, "cmp",
- 0xf138, 0x0108, l2, pmovp, 0,
- 0xff00, 0x0800, lsbit, psbit, 0,
- 0xf100, 0x0100, lonew, pdbit, 0,
- 0xffc0, 0x40c0, lonew, pcs2, "sr",
- 0xff00, 0x4000, lone, pone, "negx",
- 0xff00, 0x4200, lone, pone, "clr",
- 0xffc0, 0x44c0, lonew, pcs2, "cc",
- 0xff00, 0x4400, lone, pone, "neg",
- 0xffc0, 0x46c0, lonew, pcs2, "sr",
- 0xff00, 0x4600, lone, pone, "not",
- 0xffc0, 0x4800, lonew, ppea, "nbcd",
- 0xfff8, 0x4840, l1, pdreg, "swap",
- 0xffc0, 0x4840, lonel, ppea, "pea",
- 0xfff8, 0x4880, l1, pdreg, "extw",
- 0xfff8, 0x48c0, l1, pdreg, "extl",
- 0xfb80, 0x4880, lmvml, pmvml, 0,
- 0ffc0, 0x4ac0, lonew, ppea, "tas",
- 0xff00, 0x4a00, lone, pone, "tst",
- 0xfff0, 0x4e40, l1, ptrap, 0,
- 0xfff8, 0x4e50, l2, plink, 0,
- 0xfff8, 0x4e58, l1, pareg, "unlk\t%s",
- 0xfff8, 0x4e60, l1, pareg, "movl\t%s,usp",
- 0xfff8, 0x4e68, l1, pareg, "movl\tusp,%s",
- 0xffff, 0x4e70, l1, pareg, "reset",
- 0xffff, 0x4e71, l1, pareg, "nop",
- 0xffff, 0x4e72, l2, pstop, 0,
- 0xffff, 0x4e73, el1, pareg, "rte",
- 0xffff, 0x4e75, el1, pareg, "rts",
- 0xffff, 0x4e76, l1, pareg, "trapv",
- 0xffff, 0x4e77, el1, pareg, "rtr",
- 0xfffe, 0x4e7a, l2, pmovc, 0,
- 0xffc0, 0x4e80, jj, ppea, "jsr",
- 0xffc0, 0x4ec0, jj, ppea, "jmp",
- 0xf1c0, 0x4180, lonew, podreg,"chk",
- 0xf1c0, 0x41c0, lonel, plea, 0,
- 0xf0f8, 0x50c8, lcbch, pdbcc, 0,
- 0xf0c0, 0x50c0, lonew, pscc, 0,
- 0xf100, 0x5000, lone, pqu, "add",
- 0xf100, 0x5100, lone, pqu, "sub",
- 0xf100, 0x7000, l1, pmqu, 0,
- 0xf1c0, 0x80c0, lonew, podreg,"divu",
- 0xf1c0, 0x81c0, lonew, podreg,"divs",
- 0xf1f0, 0x8100, l1, ptreg, "sbcd",
- 0xf000, 0x8000, loone, pomode,"or",
- 0xf1f0, 0x9100, l1, ptreg, "subxb",
- 0xf1f0, 0x9140, l1, ptreg, "subxw",
- 0xf1f0, 0x9180, l1, ptreg, "subxl",
- 0xf000, 0x9000, loone, pomode,"sub",
- 0xf1f8, 0xb108, l1, pcmpm, "cmpmb",
- 0xf1f8, 0xb148, l1, pcmpm, "cmpmw",
- 0xf1f8, 0xb188, l1, pcmpm, "cmpml",
- 0xf100, 0xb000, loone, pomode,"cmp",
- 0xf1c0, 0xb1c0, loone, pomode,"cmp",
- 0xf100, 0xb100, loone, pomode,"eor",
- 0xf1c0, 0xc0c0, lonew, podreg,"mulu",
- 0xf1c0, 0xc1c0, lonew, podreg,"muls",
- 0xf1f0, 0xc100, l1, ptreg, "abcd",
- 0xf130, 0xc100, l1, pexg, 0,
- 0xf000, 0xc000, loone, pomode,"and",
- 0xf1f0, 0xd100, l1, ptreg, "addxb",
- 0xf1f0, 0xd140, 1, ptreg, "addxw",
- 0xf1f0, 0xd180, l1, ptreg, "addxl",
- 0xf000, 0xd000, loone, pomode,"add",
- 0xf8c0, 0xe0c0, lonew, pmshf, 0,
- 0xf000, 0xe000, l1, pshf, 0,
- 0
-};
-
-char *areg[] = { "a0", "a1", "a2", "a3", "a4", "a5", "a6", "sp"};
-char *cclist[] = { "hi", "ls", "cc", "cs", "ne", "eq", "vc", "vs",
- "pl", "mi", "ge", "lt", "gt", "le"};
-
-char *shtype[] = { "as", "ls", "rox", "ro" };
-char *bittyp[] = { "tst", "chg", "clr", "set" };
-
-char *creg[] = { "sfc", "dfc", "usp", "vbr" };
-
-/*
- * Length functions.
- */
-
-int l1()
-{
- return 1;
-}
-
-int l2()
-{
- return 2;
-}
-
-int el1(te)
-t_entry *te;
-{
- te->t_bchtyp = T_UNBR;
- return 1;
-}
-
-int lea(instr, size, pos)
-unsigned instr, size;
-long pos;
-{
- switch ((instr >> 3) & 0x7) {
- case 0:
- case 1:
- case 2:
- case 3:
- case 4:
- return 1;
- case 5:
- case 6:
- return 2;
- default:
- switch (instr & 0x7) {
- case 0:
- case 2:
- case 3:
- return 2;
- case 1:
- mkdref(pos, size);
- return 3;
- case 4:
- if (size > 2)
- return 3;
- return 2;
- default:
- return 0;
- }
- }
-}
-
-/*
- * Lengths of move instructions.
- */
-
-int lmove(te, pos)
-t_entry *te;
-long pos;
-{
- register unsigned tc = te->t_contents;
- unsigned sz = 1;
- int lng, lng2;
-
- lng = tc & 0xf000;
- if (lng == 0x3000)
- sz = 2;
- else if (lng == 0x2000)
- sz = 4;
-
- i ((lng = lea(tc, sz, pos+2)) <= 0)
- return 0;
- lng2 = lea(((tc>>3) & 0x38) | ((tc>>9) & 0x7), sz, pos+lng+lng);
- if (lng2 <= 0)
- return 0;
- return lng + lng2 - 1;
-}
-
-/*
- * Lengths for conditional branches and dbcc instructions.
- */
-
-int lcbch(te, pos)
-t_entry *te;
-long pos;
-{
- unsigned tc = te->t_contents;
- long dest = pos + 2;
- int res = 2;
-
- if ((tc & 0xf000) == 0x5000 || (tc & 0xff) == 0)
- dest += (short)gettw(&mainfile, pos+2, R_WORD);
- else {
- dest += (char) tc;
- res = 1;
- }
- if ((tc & 0xff00) == 0x6000)
- te->t_bchtyp = T_UNBR;
- else if ((tc & 0xff00) == 0x6100)
- te->t_bchtyp = T_JSR;
- else
- te->t_bchtyp = T_CONDBR;
-
- te->t_relsymb = textlab(dest, pos);
- return res;
-}
-
-int jj(te, pos)
-t_entry *te;
-long pos;
-{
- unsigned tc = te->t_contents;
- t_entry nextl;
-
- te->t_bchtyp = (tc & 0x40)? T_UNBR: T_JSR;
- if ((tc & 0x3f) == 0x39) {
- gette(&mainfile, pos+2, &nextl);
- if (nextl.t_relsymb == NULL) {
- nextl.t_relsymb = textlab(gettw(&mainfile, pos+2, R_LONG), pos);
- putte(&mainfile, pos+2, &nextl);
- }
- te->t_relsymb = nextl.t_relsymb; /* Easy ref */
- }
- return lea(tc, 4, pos+2);
-}
-
-int limed(te, pos)
-t_entry *te;
-long pos;
-{
- unsigned tc = te->t_contents;
- int lng;
-
- /*
- * Specifically exclude byte address register operands,
- * and ones which have lengths of 3.
- */
-
- if ((tc & 0xf8) == 0x08)
- return 0;
-
- if ((tc & 0xc0) >= 0x80) {
- if (tc &0x40)
- return 0;
- lng = lea(tc, 4, pos+6);
- if (lng > 0)
- lng += 2;
- }
- else {
- lng = lea(tc, (unsigned)((tc & 0xc0)?2:1), pos+4);
- if (lng > 0)
- lng++;
- }
- return lng;
-}
-
-int lsbit(te, pos)
-t_entry *te;
-long pos;
-{
- int lng = lea(te->t_contents, 1, pos+4);
-
- if (lng > 0)
- lng++;
- return lng;
-}
-
-int lmvml(te, pos)
-t_entry *te;
-long pos;
-{
- int lng = lea(te->t_contents,
- (unsigned)(te->t_contents&0x40? 4:2), pos+4);
-
- if (lng > 0)
- lng++;
- return lng;
-}
-
-/*
- * Length depends on bits 6 and 7 of instruction.
- */
-
-int lone(te, pos)
-t_entry *te;
-long pos;
-{
- unsigned tc = te->t_contents;
-
- return lea(tc, 1 << ((tc >> 6) & 3), pos+2);
-}
-
-/*
- * Length depends on bits 6-8 of instruction.
- */
-
-int loone(te, pos)
-t_entry *te;
-long pos;
-{
- unsigned tc = te->t_contents;
-
- switch ((tc >> 6) & 7) {
- case 0:
- case 4:
- return lea(tc, 1, pos+2);
- case 1:
- case 3:
- case 5:
- return lea(tc, 2, pos+2);
- case 2:
- case 6:
- case 7:
- return lea(tc, 4, pos+2);
- }
- /*NOTREACHED*/
-}
-
-int lonew(te, pos)
-t_entry *te;
-long pos;
-{
- return lea(te->t_contents, 2, pos+2);
-}
-
-int lonel(te, pos)
-t_entry *te;
-long pos;
-{
- return lea(te->t_contents, 4, pos+2);
-}
-
-/*
- * Print routines.
- */
-
-int findleng(tc)
-unsigned tc;
-{
- switch ((tc >> 6) & 3) {
- case 0:
- return 'b';
- case 1:
- return 'w;
- default:
- return 'l';
- }
-}
-
-void piword(disp)
-unsigned disp;
-{
- int szc;
-
- (void) printf("@(0x%x,", disp & 0xff);
- if (disp & 0x8000)
- (void) printf("%s", areg[(disp >> 12) & 0x7]);
- else
- (void) printf("d%d", (disp >> 12) & 0x7);
- szc = 'w';
- if (disp & (1 << 10))
- szc = 'l';
- (void) printf(":%c)", szc);
-}
-
-void paddr(pos)
-long pos;
-{
- t_entry tent;
- symbol symb;
-
- gette(&mainfile, pos, &tent);
- if (tent.t_relsymb != NULL) {
- symb = tent.t_relsymb;
- if (symb->s_lsymb != 0)
- (void) printf("%u$", symb->s_lsymb);
- else
- (void) printf("%s", symb->s_name);
- if (tent.t_reldisp != 0)
- (void) printf("+0x%x", tent.t_reldisp);
- return;
- }
- (void) printf("0x%x", gettw(&mainfile, pos, R_LONG));
-}
-
-int prea(ea, pos, sz)
-unsigned ea, sz;
-long pos; /* Address of previous word to extn */
-{
- unsigned reg = ea & 0x7;
- long disp;
-
- pos += 2;
-
- switch ((ea >> 3) & 0x7) {
- case 0:
- (void) printf("d%d", reg);
- return 0;
- case 1:
- (void) printf("%s", areg[reg]);
- return 0;
- case 2:
- (void) printf("%s@", areg[reg]);
- return 0;
- case 3:
- (void) printf("%s@+", areg[reg]);
- return 0;
- case 4:
- (void) printf("%s@-", areg[reg]);
- return 0;
- case 5:
- disp = gettw(&mainfile, pos, R_WORD);
- (void) printf("%s@(0x%x)", areg[reg], disp);
- return 2;
- case 6:
- (void) printf("%s, areg[reg]);
- piword((unsigned) gettw(&mainfile, pos, R_WORD));
- return 2;
- default:
- switch (reg) {
- case 0:
- disp = gettw(&mainfile, pos, R_WORD);
- (void) printf("0x%x:w", disp);
- return 2;
- case 1:
- paddr(pos);
- return 4;
- case 2:
- disp = gettw(&mainfile, pos, R_WORD);
- (void) printf("pc@(0x%x)", disp);
- return 2;
- case 3:
- (void) printf("pc");
- piword((unsigned) gettw(&mainfile, pos, R_WORD));
- return 2;
- case 4:
- (void) printf("#");
- if (sz < 4)
- (void) printf("0x%x", gettw(&mainfile, pos, R_WORD));
- else
- paddr(pos);
- return sz;
- default:
- (void) fprintf(stderr, "Funny mode\n");
- exit(220);
- }
- }
- /*NOTREACHED*/
-}
-
-int pmove(te, pos)
-t_entry *te;
-long pos;
-{
- unsigned sz = 2;
- unsigned tc = te->t_contents;
-
- (void) printf("mov%s\t", optab[te->t_iindex].prarg);
-
- if ((tc & 0xf000) == 0x2000)
- sz = 4;
-
- pos += prea(tc, pos, sz);
- putchar(',');
- (void) prea(((tc >> 9) & 0x7) | ((tc >> 3) & 0x38), pos, sz);
-}
-
-int pcbch(te)
-t_entry *te;
-{
- int cc = ((te->t_contents >> 8) & 0xf) - 2;
- char *msg;
- register symbol ts;
-
- if (cc < 0)
- msg = cc < -1? "ra": "sr";
- else
- msg = cclist[cc];
- (void) printf("b%s",msg);
- if (te->t_lng < 2)
- (void) printf("s");
- ts = te->t_relsymb;
- if (ts->s_lsymb != 0)
- (void) printf("\t%u$", ts->s_lsymb);
- else
- (void) printf("\t%s", ts->s_name);
-}
-
-int pdbcc(te)
-t_entry *te;
-{
- unsigned tc = te->t_contents;
- int cc = ((tc >> 8) & 0xf) - 2;
- char *msg;
- register symbol ts;
-
- if (cc < 0)
- msg = cc < -1? "t": "f";
- else
- msg = cclist[cc];
- ts = te->t_relsymb;
- (void) printf("db%s\td%d,", msg, tc & 0x7);
- if (ts->s_lsymb)
- (void) printf("%u$", ts->s_lsymb);
- else
- (void) printf("%s", ts->s_name);
-}
-
-int pscc(te, pos)
-t_entry *te;
-long pos;
-{
- unsigned tc = te->t_contents;
- int cc = ((tc >> 8) & 0xf) - 2;
- char *msg;
-
- if (cc < 0)
- msg = cc < -1? "t": "f";
- else
- msg = cclist[cc];
- (void) printf("s%s\t", msg);
- (void) prea(tc, pos, 1);
-}
-
-int pcs(te, pos)
-t_entry *te;
-long pos;
-{
- long disp = gettw(&mainfile, pos+2, R_WORD);
-
- (void) printf("%s", optab[te->t_iindex].prarg);
- if ((te->t_contents & 0xc0) == 0)
- (void) printf("b\t#0x%x,cc", disp);
- else
- (void) printf("w\t#0x%x,sr", disp);
-}
-
-int pmovc(te, pos)
-t_entry *te;
-long pos;
-{
- int disp = gettw(&mainfile, pos+2, R_WORD);
- int ctrl = ((disp >> 10) & 2) | (disp & 1);
-
- (void) printf("movec\t");
- if ((te->t_contents & 1) == 0)
- (void) printf("%s,", creg[ctrl]);
- if (disp & 0x8000)
- (void) printf("%s", areg[(disp >> 12) & 7]);
- else
- (void) printf("d%d", disp >> 12);
- if (te->t_contents & 1)
- (void) printf(",%s", creg[ctrl]);
-}
-
-int pimed(te, pos)
-t_entry *te;
-long pos;
-{
- int sz = findleng(te->t_contents);
-
- (void) printf("%s%c\t#", optab[te->t_iindex].prarg, sz);
- if (sz == 'l') {
- paddr(pos+2);
- putchar(',');
- (void) prea(te->t_contents, pos+4, 4);
- }
- else {
- (void) printf("0x%x,", gettw(&mainfile, pos+2, R_WORD));
- (void) prea(te->t_contents, pos+2, 2);
- }
-}
-
-int pmovp(te, pos)
-t_entry *te;
-long pos;
-{
- unsigned tc = te->t_contents;
- long disp = gettw(&mainfile, pos+2, R_WORD);
- int dreg = tc >> 9;
- char *ar = areg[tc & 0x7];
-
- (void) printf("movep");
- if (tc & (1 << 6))
- putchar('l');
- else
- putchar('w');
-
- if (tc & (1 << 7))
- (void) printf("\td%d,%s@(0x%x)", dreg, ar, disp);
- else
- (void) printf("\t%s@(0x%x),d%d", ar, disp, dreg);
-}
-
-int psbit(te, pos)
-t_entry *te;
-long pos;
-{
- unsigned tc = te->t_contents;
-
- (void) printf("b%s\t#%d,", bittyp[(tc >> 6) & 0x3], gettw(&mainfile, pos+2, R_WORD));
- (void) prea(tc, pos+2, 1);
-}
-
-/*ARGSUSED*/
-int pstop(te, pos)
-t_entry *te;
-long pos;
-{
- (void) printf("stop\t#0x%x", gettw(&mainfile, pos+2, R_WORD));
-}
-
-int pdbit(te, pos)
-t_entry *te;
-long pos;
-{
- unsigned tc = te->t_contents;
-
- (void) printf("b%s\td%d,", bittyp[(tc >> 6) & 0x3], (tc >> 9) & 0x7);
- (void) prea(tc, pos, 1);
-}
-
-int pcs2(te, pos)
-t_entry *te;
-long pos;
-{
- unsigned tc = te->t_contents;
-
- (void) printf("movw\t");
- if ((tc & 0xffc0) == 0x40c0) {
- (void) printf("sr,");
- (void) prea(tc, pos, 2);
- }
- else {
- (void) prea(tc, pos, 2);
- (void) printf(",%s", optab[te->t_iindex].prarg);
- }
-}
-
-int pone(te, pos)
-t_entry *te;
-long pos;
-{
- unsigned tc = te->t_contents;
- int sz = findleng(tc);
-
- (void) printf("%s%c\t", optab[te->t_iindex].prarg, sz);
- (void) prea(tc, pos, (unsigned)(sz == 'l'? 4: 2));
-}
-
-int ppea(te, pos) /* nbcd, pea, tas, jmp, jsr */
-t_entry *te;
-long pos;
-{
- (void) printf("%s\t", optab[te->t_iindex].prarg);
- (void) prea(te->t_contents, pos, (unsigned)(te->t_lng > 2? 4: 2));
-}
-
-
-int plea(te, pos)
-t_entry *te;
-long pos;
-{
- (void) printf("lea\t");
- (void) prea(te->t_contents, pos, 4);
- (void) printf(",%s", areg[(te->t_contents >> 9) & 0x7]);
-}
-
-int pdreg(te)
-t_entry *te;
-{
- (void) printf("%s\td%d", optab[te->t_iindex].prarg, te->t_contents & 7);-}
-
-
-int pmvml(te, pos)
-t_entry *te;
-long pos;
-{
- unsigned tc = te->t_contents;
- register unsigned dw = gettw(&mainfile, pos+2, R_WORD);
- unsigned sz = 4;
- int sc = 'l';
- register int i;
- register unsigned bit;
-
- (void) printf("movem");
- if ((tc & 0x40) == 0) {
- sc = 'w';
- sz = 2;
- }
-
- (void) printf("%c\t", sc);
-
- if (tc & 0x400) {
- (void) prea(tc, pos+2, sz);
- (void) printf(",#0x%x", dw);
- }
- else {
- (void) printf("#0x%x,", dw);
- (void) prea(tc, pos+2, sz);
- }
-
- (void) printf("\t|");
-
- if ((tc & 0x38) == 0x20) {
- bit = 0x8000;
- for (i = 0; i < 8; i++) {
- if (dw & bit)
- (void) printf(" d%d", i);
- bit >>= 1;
- }
- for (i = 0; i < 8; i++) {
- if (dw & bit)
- (void) printf(" %s", areg[i]);
- bit >>= 1;
- }
- }
- else {
- bit = 1;
- for (i = 0; i < 8; i++) {
- if (dw & bit)
- (void) printf(" d%d", i);
- bit <<= 1;
- }
- for (i = 0; i < 8; i++) {
- if (dw & bit)
- (void) printf(" %s", areg[i]);
- bit <<= 1;
- }
- }
-}
-
-int ptrap(te)
-t_entry *te;
-{
- (void) printf("trap\t#0x%x", te->t_contents & 0xf);
-}
-
-int plink(te, pos)
-t_entry *te;
-long pos;
-{
- (void) printf("link\t%s,#0x%x", areg[te->t_contents & 0x7],
- gettw(&mainfile, pos+2, R_WORD));
-}
-
-
-int pareg(te)
-t_entry *te;
-{
- (void) printf(optab[te->t_iindex].prarg, areg[te->t_contents & 0x7]);
-}
-
-int podreg(te, pos)
-t_entry *te;
-long pos;
-{
- unsigned tc = te->t_contents;
-
- (void) printf("%s\t", optab[te->t_iindex].prarg);
- (void) prea(tc, pos, 2);
- (void) printf(",d%d", (tc >> 9) & 0x7);
-}
-
-int pqu(te, pos)
-t_entry *te;
-long pos;
-{
- unsigned tc = te->t_contents;
- int sz = findleng(tc);
- int amt = (tc >> 9) & 0x7;
-
- if (amt == 0)
- amt = 8;
- (void) printf("%sq%c\t#%d,", optab[te->t_iindex].prarg, sz, amt);
- (void) prea(tc, pos, (unsigned)(sz == 'l'? 4: 2));
-}
-
-int pmqu(te)
-t_entry *te;
-{
- unsigned tc = te->t_contents;
-
- (void) printf("moveq\t#0x%x,d%d", (char)tc, (tc >> 9) & 0x7);
-}
-
-int ptreg(te)
-t_entry *te;
-{
- regster unsigned tc = te->t_contents;
- int rx = (tc >> 9) & 0x7;
- int ry = tc & 0x7;
-
- (void) printf("%s\t", optab[te->t_iindex].prarg);
- if (tc & 0x8)
- (void) printf("%s@-,%s@-", areg[ry], areg[rx]);
- else
- (void) printf("d%d,d%d", ry, rx);
-}
-
-int pcmpm(te)
-t_entry *te;
-{
- register unsigned tc = te->t_contents;
-
- (void) printf("%s\t%s@+,%s@+", optab[te->t_iindex].prarg,
- areg[tc & 7], areg[(tc >> 9) & 7]);
-}
-
-int pomode(te, pos)
-t_entry *te;
-long pos;
-{
- unsigned tc = te->t_contents;
- char bef[4], aft[4];
- int sz;
- int reg = (tc >> 9) & 7;
-
- bef[0] = aft[0] = '\0';
-
- switch ((tc >> 6) & 7) {
- case 0:
- sz = 'b';
- goto toreg;
- case 1:
- sz = 'w';
- goto toreg;
- case 2:
- sz = 'l';
- toreg:
- (void) sprintf(aft, ",d%d", reg);
- break;
- case 3:
- sz = 'w';
- goto toareg;
- case 7:
- sz = 'l';
- toareg:
- (void) sprintf(aft, ",%s", areg[reg]);
- break;
- case 4:
- sz = 'b';
- goto frreg;
- case 5:
- sz = 'w';
- goto frreg;
- case 6:
- sz = 'l';
- frreg:
- (void) sprintf(bef, "d%d,", reg);
- break;
- }
-
- (void) printf("%s%c\t%s", optab[te->t_iindex].prarg, sz, bef);
- (void) prea(tc, pos, (unsigned)(sz == 'l'? 4: 2));
- (void) printf(aft);
-}
-
-int pexg(te)
-t_entry *te;
-{
- unsigned tc = te->t_contents;
- int r1 = (tc >> 9) & 7, r2 = tc & 7;
-
- (void) printf("exg\t");
-
- if ((tc & 0x00f8) == 0x0048)
- (void) printf("%s,", areg[r1]);
- else
- (void) printf("d%d,", r1);
- if (tc & 0x8)
- (void) printf("%s", areg[r2]);
- else
- (void) printf("d%d", r2);
-}
-
-int pmshf(te, pos)
-t_entry *te;
-long pos;
-{
- unsigned tc = te->t_contents;
-
- (void) printf("%s%cw\t", shtype[(tc >> 9) & 3], tc & 0x100? 'l': 'r');
- (void) prea(tc, pos, 2);
-}
-
-int pshf(te)
-t_entry *te;
-{
- unsigned tc = te->t_contents;
- int sz = findleng(tc);
- int disp = (tc >> 9) & 7;
-
- (void) printf("%s%c%c\t", shtype[(tc >> 3) & 3], tc & 0x100? 'l': 'r', sz);
- if (tc & 0x20)
- (void) printf("d%d", disp);
- else
- (void) printf("#%d", disp == 0? 8: disp);
- (void) printf(",d%d", tc & 7);
-}
-
-/*
- * Find length etc of instruction.
- */
-
-int findinst(te, pos)
-register t_entry *te;
-long pos;
-{
- register struct opstr *op;
- unsigned tc = te->t_contents;
- int lng = 0;
- register int i;
-
- te->t_type = T_BEGIN;
- te->t_bchtyp = T_NOBR;
-
- for (op = &optab[0]; op->mask; op++) {
- if ((tc & op->mask) == op->match) {
- te->t_iindex = op - optab;
- lng = (op->opsize)(te, pos);
- break;
- }
- }
-
- for (i = 1; i < lng; i++) {
- t_entry ctent;
- long npos = pos+i+i;
-
- if (npos >= endt)
- goto clearem;
- gette(&mainfile, npos, &ctent);
- if (ctent.t_bdest || ctent.t_dref) {
-clearem: for (i--; i > 0; i--) {
- npos = pos + i + i;
- gette(&mainfile, npos, &ctent);
- ctent._type = T_UNKNOWN;
- putte(&mainfile, npos, &ctent);
- }
- lng = 0;
- goto ginv;
- }
- ctent.t_type = T_CONT;
- putte(&mainfile, npos, &ctent);
- }
-
- if (lng <= 0) {
-ginv: te->t_vins = 0;
- te->t_lng = 1;
- te->t_type = T_UNKNOWN;
- te->t_bchtype = T_NOBR;
- }
- else
- te->t_lng = lng;
- return lng;
-}
-
-/*
- * Print instruction.
- */
-
-void prinst(te, pos)
-t_entry *te;
-long pos;
-{
- putchar('\t');
- (optab[te->t_iindex].opprin)(te, pos);
- putchar('\n');
-}
//GO.SYSIN DD iset.c
echo libmtch.c 1>&2
sed 's/.//' >libmtch.c <<'//GO.SYSIN DD libmtch.c'
-/*
- * SCCS: @(#)libmtch.c 1.2 11/2/84 14:18:55
- * Read library files.
- *
- ***********************************************************************
- * This software is copyright of
- *
- * John M Collins
- * 47 Cedarwood Drive
- * St Albans
- * Herts, AL4 0DN
- * England +44 727 57267
- *
- * and is released into the public domain on the following conditions:
- *
- * 1. No free maintenance will be guaranteed.
- * 2. Nothing may be based on this software without
- * acknowledgement, including incorporation of this
- * notice.
- *
- * Notwithstanding the above, the author welcomes correspondence and bug
- * fixes.
- ***********************************************************************
- */
-
-#include <stdio.h>
-#include <fcntl.h>
-#include <a.out.h>
-#include <ar.h>
-#include <setjmp.h>
-#include "unc.h"
-
-long lseek();
-void bfopen(), bfclose(), nomem();
-void rrell2(), markmatch();
-char *strchr(), *strrchr(), *strncpy(), *strcat(), *strcpy(, *malloc();
-int matchup();
-long findstart();
-
-char verbose; /* Tell the world what we are doing */
-char *tfnam;
-char *cfile;
-ef_fids mainfile;
-struct commit dreltab;
-int donedrel, donebrel;
-long trelpos, drelpos, brelpos;
-static struct libit currlib = {-1, 0, -1, ""};
-
-void lclash(str)
-char *str;
-{
- (void) fprintf(stderr, "Library scan failure - %s\n", str);
- (void) fprintf(stderr, "Searching %s\n", cfile);
- if (currlib.lf_name[0])
- (void) fprintf(stderr, "Member is %s\n", currlib.lf_name);
- exit(255);
-}
-
-/*
- * Find next member.
- */
-
-long nextmemb(lfd)
-register struct libit *lfd;
-{
- struct ar_hdr arbuf;
-
- if (lfd->lf_next < 0)
- return -1;
-
- (void) lseek(lfd->lf_fd, lfd->lf_next, 0);
- if (read(lfd->lf_fd, (char *)&arbuf, sizeof(arbuf)) != sizeof(arbuf)) {
- lfd->lf_next = -1;
- return -1;
- }
- (void) strncpy(lfd->lf_name, arbuf.ar_name, sizeof(lfd->lf_name));
- lfd->lf_offset = lfd->lf_next + sizeof(arbuf);
- lfd->lf_next = (lfd->lf_offset + arbuf.ar_size + 1) & ~1;
- return lfd->lf_offset;
-}
-
-/*
- * Decode a file name thus -
- *
- * -lxxx decode as /lib/libxxx.a /usr/lib/libxxx.a etc
- * -Lxxx forget "lib" ".a" bit thus -Lcrt0.o
- * or read LDPATH environment var to give list of directories as sh
- * (default /lib:/usr/lib).
- *
- * Alternatively treat as normal pathname.
- *
- * File names may be followed by (membername) if the file is an archive,
- * thus
- *
- * -lc(printf.o)
- *
- * in which case the specified module is fetched.
- */
-
-struct libit *getfnam(str)
-char *str;
-{
- char *bp, *ep = NULL, *pathb, *pathe, *fullpath = NULL;
- static char *pathn;
- extern char *getenv();
- long magic;- struct ar_hdr arhdr;
- int fd;
-
- if ((bp = strrchr(str, '(')) != NULL &&
- (ep = strrchr(str, ')')) != NULL)
- *ep = *bp = '\0';
-
- if (str[0] == '-' && (str[1] == 'l' || str[1] == 'L')) {
- if (pathn == NULL) {
- if ((pathn = getenv("LDPATH")) == NULL)
- pathn = "/lib:/usr/lib";
- }
- fullpath = malloc((unsigned)(strlen(pathn) + strlen(str) + 1));
- if (fullpath == NULL)
- nomem();
- pathb = pathn;
- do {
- pathe = strchr(pathb, ':');
- if (*pathb == ':')
- fullpath[0] = '\0';
- else {
- if (pathe != NULL)
- *pathe = '\0';
- (void) strcpy(fullpath, pathb);
- (void) strcat(fullpath, "/");
- if (pathe != NULL)
- *pathe = ':';
- }
- if (str[1] == 'l')
- (void) strcat(fullpath, "lib");
- (void) strcat(fullpath, &str[2]);
- if (str[1] == 'l')
- (void) strcat(fullpath, ".a");
- if ((fd = open(fullpath, O_RDONLY)) >= 0)
- goto found;
- pathb = pathe + 1;
- } while (pathe != NULL);
-
- (void) fprintf(stderr, "Unable to locate lib%s.a in %s\n",
- &str[2], pathn);
- exit(101);
- }
- else if ((fd = open(str, O_RDONLY)) < 0) {
- (void) fprintf(stderr, "Cannot open %s\n", str);
- exit(102);
- }
-
-found:
-
- if ((read(fd, (char *) &magic, sizeof(magic)) != sizeof(magic) ||
- magic != ARMAG)) {
- if (ep != NULL) {
- (void) fprintf(stderr, "%s is not library file\n",
- fullpath != NULL? fullpath: str);
- exit(103);
- }
- if (fullpath != NULL)
- free(fullpath);
- currlib.lf_fd = fd;
- currlib.lf_offset = 0;
- currlib.lf_next = -1;
- currlib.lf_name[0] = '\0';
- return &currlib;
- }
-
- /*
- * It appears to be a library file - see if we want a specific
- * one.
- */
-
- if (ep != NULL) {
- currlib.lf_offset = sizeof(magic) + sizeof(struct ar_hdr);
- for (;;) {
- if (read(fd, &arhdr, sizeof(arhdr)) != sizeof(arhdr)) {
- (void) fprintf(stderr, "Cannot find member %s in %s\n",
- bp+1, fullpath?fullpath: str);
- exit(103);
- }
- if (strncmp(bp+1, arhdr.ar_name, sizeof(arhdr.ar_name)) == 0)
- break;
- currlib.lf_offset += arhdr.ar_size + sizeof(arhdr) + 1;
- currlib.lf_offset &= ~ 1;
- (void) lseek(fd, (long)(currlib.lf_offset - sizeof(arhdr)), 0);
- }
- if (fullpath != NULL)
- free(fullpath);
- currlib.lf_fd = fd;
- currlib.lf_next = -1;
- currlib.lf_name[0] = '\0';
- *bp = '(';
- *ep = ')';
- return &currlib;
- }
-
- /*
- * Otherwise point to 1st member in library.
- */
-
- if (read(fd, &arhdr, szeof(arhdr)) != sizeof(arhdr)) {
- (void) fprintf(stderr, "Library %s empty\n", fullpath? fullpath: str);
- exit(104);
- }
- if (fullpath != NULL)
- free(fullpath);
- currlib.lf_offset = sizeof(magic) + sizeof(arhdr);
- currlib.lf_next = currlib.lf_offset + arhdr.ar_size + 1;
- currlib.lf_next &= ~1;
- currlib.lf_fd = fd;
- (void) strncpy(currlib.lf_name, arhdr.ar_name, sizeof(currlib.lf_name));- return &currlib;
-}
-
-/*
- * Process library files.
- */
-
-#define MINTEXT 6
-
-void lscan(nfiles, fnames)
-int nfiles;
-char **fnames;
-{
- ef_fids libfile;
- register ef_fid ll = &libfile;
- register struct libit *clf;
- extern symbol dolsymb();
- int firstfile;
-
- for (; nfiles > 0; fnames++, nfiles--) {
- clf = getfnam(*fnames);
- cfile = *fnames;
- firstfile = 1;
- do {
- bfopen(tfnam, ll);
-
- /*
- * If file is garbled, silently forget it and go
- * on to the next one.
- */
-
- if (!rtext(clf->lf_fd, clf->lf_offset, ll))
- goto closeit;
-
- if (ll->ef_tsize < MINTEXT)
- goto closeit;
-
- if (!rdata(clf->lf_fd, clf->lf_offset, ll))
- goto closeit;
-
- if (rrell1(clf->lf_fd, clf->lf_offset, ll) < 0)
- goto closeit;
-
- /*
- * If first file in library, find it from
- * beginning of main file.
- */
-
- if (firstfile) {
- if ((trelpos = findstart(&mainfile, ll)) < 0)
- goto closeit;
- firstfile = 0;
- }
- else if (!matchup(&mainfile, ll, trelpos))
- goto closeit;
-
- /*
- * Found a match.
- */
-
- if (!rsymb(clf->lf_fd, clf->lf_offset, dolsymb, ll)) {- (void) fprintf(stderr, "Corrupt file %s\n",
- *fnames);
- exit(150);
- }
-
- donedrel = 0;
- donebrel = 0;
- rrell2(clf->lf_fd, clf->lf_offset, ll);
- if (verbose) {
- (void) fprintf(stderr, "Found: ");
- if (clf->lf_name[0])
- (void) fprintf(stderr, "%.14s in ",
- clf->lf_name);
- (void) fprintf(stderr, "%s\n", *fnames);
- }
- if (libfile.ef_stvec != NULL) {
- free(libfile.ef_stvec);
- libfile.ef_stvec = NULL;
- libfile.ef_stcnt = 0;
- }
- dreltab.c_int = 0;
-
- /*
- * Start looking next time round
- * where last one left off.
- */
-
- markmatch(&mainfile, ll, trelos);
- trelpos += libfile.ef_tsize;
-closeit:
- bfclose(ll);
- } while (nextmemb(clf) >= 0);
- }
-}
//GO.SYSIN DD libmtch.c
echo main.c 1>&2
sed 's/.//' >main.c <<'//GO.SYSIN DD main.c'
-/*
- * SCCS: @(#)main.c 1.2 11/2/84 14:19:31
- * Main routine etc.
- *
- ***********************************************************************
- * This software is copyright of
- *
- * John M Collins
- * 47 Cedarwood Drive
- * St Albans
- * Herts, AL4 0DN
- * England +44 727 57267
- *
- * and is released into the public domain on the following conditions:
- *
- * 1. No free maintenance will be guaranteed.
- * 2. Nothing may be based on this software without
- * acknowledgement, including incorporation of this
- * notice.
- *
- * Notwithstanding the above, the author welcomes correspondence and bug
- * fixes.
- ***********************************************************************
- */
-
-#include <stdio.h>
-#include <fcntl.h>
-#include <a.out.h>
-#include <sys/var.h>
-#include "unc.h"
-
-#define LINELNG 70
-
-void inturdat(), intutext(), intudat(), intlsym();
-void ptext(), pdata(), pabs(), pbss(), lscan();
-
-ef_fids mainfile;
-
-int par_entry, par_round; /* 68000 parameters */
-int nmods; /* Number of modules it looks like */
-
-char *tfnam = "split";
-
-char lsyms; /* Generate local symbols */
-char verbose; /* Tell the world what we are doing */
-char noabs; /* No non-global absolutes */
-int rel; /* File being analysed is relocatable */
-int lpos;
-
-symbol dosymb();
-struct libit *getfnam();
-
-/*
- * Get hex characters, also allowing for 'k' and 'm'.
- */
-
-int ghex(str)
-registe char *str;
-{
- register int result = 0;
- register int lt;
-
- for (;;) {
- lt = *str++;
- switch (lt) {
- default:
-err: (void) fprintf(stderr, "Invalid hex digit \'%c\'\n", lt);
- exit(1);
-
- case '\0':
- return result;
-
- case '0':case '1':case '2':case '3':case '4':
- case '5':case '6':case '7':case '8':case '9':
- result = (result << 4) + lt - '0';
- continue;
-
- case 'a':case 'b':case 'c':case 'd':case 'e':case 'f':
- result = (result << 4) + lt - 'a' + 10;
- continue;
-
- case 'A':case 'B':case 'C':case 'D':case 'E':case 'F':
- result = (result << 4) + lt - 'A' + 10;
- continue;
-
- case 'k':case 'K':
- if (*str != '\0')
- goto err;
- return result << 10;
-
- case 'm':case 'M':
- if (*str != '\0')
- goto err;
- return result << 20;
- }
- }
-}
-
-/*
- * Process entry line options. Return number dealt with.
- */
-
-int doopts(av)
-char *av[];
-{
- register int cnt = 0, lt;
- register char *arg;
- struct var vs;
-
- uvar(&vs);
- par_entry = vs.v_ustart;
- par_round = vs.v_txtrnd - 1;
-
- for (;;) {
- arg = *++av;
- if (*arg++ != '-')
- return cnt;
- cnt++;
-
-nx: switch (lt = *arg++) {
- default:
- (void)fprintf(stderr, "Bad option -%c\n", lt);
- exit(1);
-
- case '\0':
- continue;
-
- case 'l': /* A file name */
- case 'L':
- return cnt - 1;
-
- case 's':
- lsyms++;
- goto nx;
-
- case 'v':
- verbose++;
- goto nx;
-
- case 'a':
- noabs++;
- goto nx;
-
- case 'R':
- case 'N':
- if (*arg == '\0') {
- cnt++;
- arg = *++av;
- if (arg == NULL) {
-bo: (void) fprintf(stderr,"Bad -%c option\n",lt);
- exit(1);
- }
- }
- if (lt == 'R')
- par_entry = ghex(arg);
- else
- par_round = ghex(arg) - 1;
- continue;
-
- case 't':
- if (*arg == '\0') {
- cnt++;
- arg = *++av;
- if (arg == NULL)
- goto bo;
- }
- tfnam = arg;
- continue;
-
- case 'o':
- if (*arg == '\0') {
- cnt++;
- arg = *++av;
- if (arg == NULL)
- goto bo;
- }
- if (freopen(arg, "w", stdout) == NULL) {
- (void) fprintf(stderr, "Help! cant open %s\n", arg);
- exit(20);
- }
- continue;
- }
- }
-}
-
-/*
- * Open binary files. Arrange to erase them when finished.
- */
-
-void bfopen(nam, fid)
-char *nam;
-ef_fid fid;
-{
- char fnam[80];
-
- (void) sprintf(fnam, "%s.tx", nam);
- if ((fid->ef_t = open(fnam, O_RDWR|O_CREAT, 0666)) < 0) {
-efil: (void) fprintf(stderr, "Help could not open %s\n", fnam);
- exit(4);
- }
- (void) unlink(fnam);
- (void) sprintf(fnam, "%s.dt", nam);
- if ((fid->ef_d = open(fnam, O_RDWR|O_CREAT, 0666)) < 0)
- goto efil;
- (void) unlink(fnam);
-}
-
-/*
- * Close binary files. They should get zapped anyway.
- */
-
-void bfclose(fid)
-ef_fid fid;
-{
- (void) close(fid->ef_t);
- (void) close(fid->ef_d);
-}
-
-/*
- * Main routine.
- */
-
-main(argc, argv)
-int argc;
-char *argv[];
-{
- int i;
- char *progname = argv[0];
- char *msg;
- register struct libit *lfd;
-
- i = doopts(argv);
- argc -= i;
- argv += i;
-
- if (argc < 2) {
- (void) fprintf(stderr, "Usage: %s [ options ] file\n", progname);
- exit(1);
- }
-
- lfd = getfnam(argv[1]);
- if (lfd->lf_next > 0) {
- (void) fprintf(stderr, "Main file (%s) cannot be library\n", argv[1]);
- exit(2);
- }
-
- bfopen(tfnam, &mainfile);
- if (verbose)
- (void) fprintf(stderr, "Scanning text\n");
- if (!rtext(lfd->lf_fd, lfd->lf_offset, &mainfile)) {
- msg = "text";
-bf: (void) fprintf(stderr, "Bad format input file -reading %s\n", msg);
- exit(5);
- }
- if (verbose)
- (void) fprintf(stderr, "Scanning data\n");
- if (!rdata(lfd->lf_fd, lfd->lf_offset, &mainfile)) {
- msg = "data";
- goto bf;
- }
- if (verbose)
- (void) fprintf(stderr, "Scanning symbols\n");
- if (!rsymb(lfd->lf_fd, lfd->lf_offset, dosymb, &mainfile)) {
- msg = "symbols";
- goto bf;
- }
- if (verbose)
- (void) fprintf(stderr, "Scanning for relocation\n");
- if ((rel = rrel(lfd->lf_fd, lfd->lf_offset, &mainfile)) < 0) {
- msg = "reloc";
- goto bf;
- }
-
- if (rel) {
- if (verbose)
- (void) fprintf(stderr, "File is relocatable\n");
- if (argc > 2)
- (void) fprintf(stderr, "Sorry - no scan on reloc files\n");
- }
- else
- lscan(argc - 2, &argv[2]);
-
- if (verbose)
- (void) fprintf(stderr, "End of input\n");
-
- (void) close(lfd->lf_fd);
- if (nmods > 0)
- (void) fprintf(stderr, "Warning: at least %d merged modules\n",
- nmods + 1);
-
- if (mainfile.ef_stvec != NULL) {
- free(mainfile.ef_stvec);
- mainfile.ef_stvec = NULL;
- mainfile.ef_stcnt = 0;
- }
-
- if (verbose)
- (void) fprintf(stderr, "Text anal 1\n");
- intutext();
- if (verbose)
- (void) fprintf(stderr, "Data anal 1\n");
- intudat(&mainfile);
- if (!rel) {
- if (verbose)
- (void) fprintf(stderr, "Data anal 2\n");
- inturdat(&mainfile);
- }
- if (lsyms) {
- if (verbose)
- (void) fprintf(stderr, "Local symbol scan\n");
- intlsym();
- }
- pabs();
- ptext(&mainfile);
- pdata(&mainfile);
- pbss(&mainfile);
- bfclose(&mainfile);
- exit(0);
-}
//GO.SYSIN DD main.c
echo prin.c 1>&2
sed 's/.//' >prin.c <<'//GO.SYSIN DD prin.c'
-/*
- * SCCS: @(#)prin.c 1.2 11/2/84 14:19:47
- * Print stuff.
- *
- ***********************************************************************
- * This software is copyright of
- *
- * John M Collins
- * 47 Cedarwood Drive
- * St Albans
- * Herts, AL4 0DN
- * England +44 727 57267
- *
- * and is released into the public domain on the following conditions:
- *
- * 1. No free maintenance will be guaranteed.
- * 2. Nothing may be based on this software without
- * acknowledgement, including incorporation of this
- * notice.
- *
- * Notwithstanding the above, the author welcomes correspondence and bug
- * fixes.
- ***********************************************************************
- */
-
-#include <stdio.h>
-#include <a.out.h>
-#include "unc.h"
-
-#define LINELNG 70
-
-void gette(), getde();
-long gettw(), getdw();
-void prinst();
-
-char noabs; /* No non-global absolutes */
-int rel; /* File being analysed is relocatable */
-int lpos;
-
-struct commit abstab, comtab;
-
-/*
- * Print absolute and common values.
- */
-
-void pabs()
-{
- register int i;
- register symbol cs;
-
- for (i = 0; i < abstab.c_int; i++)
-
- for (i = 0; i < abstab.c_int; i++) {
- cs = abstab.c_symb[i];
- if (cs->s_glob)
- (void) printf("\t.globl\t%s\n", cs->s_name);
- else if (noabs)
- continue;
- (void) printf("%s\t=\t0x%lx\n", cs->s_name, cs->s_valu);
- }
- for (i = 0; i < comtab.c_int; i++) {
- cs = comtab.c_symb[i];
- (void) printf("\t.comm\t%s,%d\n", cs->s_name, cs->s_value);
- }
-}
-
-/*
- * Print out labels.
- */
-
-void plabs(ls, seg)
-register symbol ls;
-int seg;
-{
- for (; ls != NULL; ls = ls->s_link) {
- if (ls->s_type != seg)
- continue;
- if (ls->s_lsymb) {
- (void) printf("%u$:\n", ls->s_lsymb);
- return; /* Set last */
- }
- if (ls->s_glob)
- (void) printf("\n\t.globl\t%s", ls->s_name);
- (void) printf("\n%s:\n", ls->s_name);
- }
-}
-
-/*
- * Print out text.
- */
-
-void ptext(fid)
-register ef_fid fid;
-{
- register long tpos, endt;
- t_entry tstr;
-
- (void) printf(".text\n");
-
- tpos = fid->ef_tbase;
- endt = tpos + fid->ef_tsize;
-contin:
- for (; tpos < endt; tpos += tstr.t_lng * 2) {
- gette(fid, tpos, &tstr);
- plabs(tstr.t_lab, TEXT);
- if (tstr.t_type == T_BEGIN)
- prinst(&tstr, tpos);
- else if (tstr.t_relsymb != NULL) {
- (void) printf("\t.long\t%s", tstr.t_relsymb->s_name);
- if (tstr.t_relsymb->s_type!=TEXT &&
- tstr.t_relsymb->s_type!=DATA)
- (void) printf("+0x%x", gettw(fid, tpos, R_LONG));
- putchar('\n');
- tpos += 4;
- goto contin;
- }
- else
- (void) printf("\t.word\t0x%x\n", tstr.t_contents);
- }
-
- /*
- * Print out any trailing label.
- */
-
- gette(fid, tpos, &tstr);
- plabs(tstr.t_lab, TEXT);
-}
-/*
- * Print out data.
- */
-
-void pdata(fid)
-register ef_fid fid;
-{
- register long dpos, endd;
- register int lng;
- unsigned ctyp;
- int had, par, inc;
- char *msg;
- d_entry dstr;
-
- (void) printf("\n.data\n");
-
- dpos = fid->ef_dbase;
- endd = dpos + fid->ef_dsize;
-
- while (dpos < endd) {
-
- getde(fid, dpos, &dstr);
- plabs(dstr.d_lab, DATA);
-
- switch (dstr.d_type) {
- case D_CONT:
- (void) fprintf(stderr, "Data sync error\n");
- exit(200);
-
- case D_ASC:
- case D_ASCZ:
- ctyp = dstr.d_type;
- lng = dstr.d_lng;
- (void) printf("\t.asci");
- if (ctyp == D_ASC)
- (void) printf("i\t\"");
- else {
- (void) printf("z\t\"");
- lng--;
- }
-
- while (lng > 0) {
- getde(fid, dpos, &dstr);
- switch (dstr.d_contents) {
- default:
- if (dstr.d_contents < ' ' ||
- dstr.d_contents > '~')
- (void) printf("\\%.3o", dstr.d_contents);
- else
- putchar(dstr.d_contents);
- break;
- case '\"':
- case '\'':
- case '\\':
- case '|':
- (void) printf("\\%c", dstr.d_contents);
- break;
- case '\b':
- (void) printf("\\b");
- break;
- case '\n':
- (void) printf("\\n");
- break;
- case '\r':
- (void) printf("\\r");
- break;
- }
-
- lng--;
- dpos++;
- }
- (void) printf("\"\n");
- if (ctyp == D_ASCZ)
- dpos++;
- break;
-
- case D_BYTE:
- msg = "byte";
- par = R_BYTE;
- inc = 1;
- goto wrest;
-
- case D_WORD:
- msg = "word";
- par = R_WORD;
- inc = 2;
- goto wrest;
-
- case D_LONG:
- msg = "long";
- par = R_LONG;
- inc = 4;
- wrest:
- (void) printf("\t.%s\t", msg);
- lng = dstr.d_lng;
- lpos = 16;
- had = 0;
- while (lng > 0) {
- if (lpos > LINELNG) {
- (void) printf("\n\t.%s\t", msg);
- lpos = 16;
- }
- else if (had)
- lpos += printf", ");
-
- lpos += printf("0x%x", getdw(fid, dpos, par));
- lng -= inc;
- dpos += inc;
- had++;
- }
- putchar('\n');
- break;
-
- case D_ADDR:
- (void) printf("\t.long\t");
- lng = dstr.d_lng;
- lpos = 16;
- had = 0;
- while (lng > 0) {
- if (lpos > LINELNG) {
- (void) printf("\n\t.long\t");
- lpos = 16;
- }
- else if (had)
- lpos += printf(", ");
-
- getde(fid, dpos, &dstr);
- lpos += printf("%s", dstr.d_relsymb->s_name);
- lng -= sizeof(long);
- dpos += sizeof(long);
- had++;
- }
- putchar('\n');
- break;
- }
- }
-
- /*
- * Print trailing label.
- */
-
- getde(fid, dpos, &dstr);
- plabs(dstr.d_lab, DATA);
-}
-
-void pbss(fid)
-register ef_fid fid;
-{
- register long bpos = fid->ef_bbase;
- long endb = fid->ef_end;
- d_entry bstr;
-
- (void) printf("\n.bss\n");
-
- while (bpos < endb) {
- getde(fid, bpos, &bstr);
- plabs(bstr.d_lab, BSS);
- (void) printf("\t.space\t%d\n", bstr.d_lng);
- bpos += bstr.d_lng;
- }
-
- getde(fid, endb, &bstr);
- plabs(bstr.d_lab, BSS);
-}
//GO.SYSIN DD prin.c
echo robj.c 1>&2
sed 's/.//' >robj.c <'//GO.SYSIN DD robj.c'
-/*
- * SCCS: @(#)robj.c 1.2 11/2/84 14:19:59
- * Read object files.
- *
- ***********************************************************************
- * This software is copyright of
- *
- * John M Collins
- * 47 Cedarwood Drive
- * St Albans
- * Herts, AL4 0DN
- * England +44 727 57267
- *
- * and is released into the public domain on the following conditions:
- *
- * 1. No free maintenance will be guaranteed.
- * 2. Nothing may be based on this software without
- * acknowledgement, including incorporation of this
- * notice.
- *
- * Notwithstanding the above, the author welcomes correspondence and bug
- * fixes.
- ***********************************************************************
- *
- * This particular module will obviously have to be munged beyond
- * recognition for another object format.
- */
-
-#include <stdio.h>
-#include <a.out.h>
-#include "unc.h"
-
-void gette(), getde(), setde(), putte(), putde();
-long gettw(), getdw();
-void reallst(), lclash(), nomem(), unimpl();
-void addit();
-char *malloc();
-long lseek();
-
-int par_entry, par_round, nmods, donedrel, donebrel;
-struct commit abstab, comtab, dreltab;
-long trelpos, drelpos, brelpos;
-
-ef_fids mainfile;
-
-symbol lookup(), inventsymb(), getnsymb();
-
-#define DBSIZE 100
-#define STINIT 20
-
-/*
- * Read text segment. Return 0 if not ok.
- */
-
-int rtext(inf, offset, outf)
-int inf; /* a.out file (possibly in library) */
-long offset; /* Offset from start of inf of a.out file */
-ef_fid outf; /* Output file descriptor */
-{
- t_entry tstr;
- struct bhdr filhdr;
- register long size;
- register int i, l;
- unsigned short inbuf[DBSIZE/2];
-
- /*
- * Initialise fields in structure.
- */
-
- tstr.t_type = T_UNKNOWN;
- tstr.t_vins = 1; /* For the moment */
- tstr.t_bdest = 0;
- tstr.t_gbdest = 0;
- tstr.t_lng = 1;
- tstr.t_reloc = R_NONE;
- tstr.t_rdisp = 0;
- tstr.t_isrel = 0;
- tstr.t_amap = 0;
- tstr.t_dref = 0;
- tstr.t_relsymb = NULL;
- tstr.t_reldisp = 0;
- tstr.t_lab = NULL;
- tstr.t_lsymb = 0;
- tstr.t_refhi = 0;
- tstr.t_reflo = 0x7fffffff;
- tstr.t_match = 0;
-
- /*
- * Read a.out header.
- */
-
- (void) lseek(inf, offset, 0);
-
- if (read(inf, (char *)&filhdr, sizeof(filhdr)) != sizeof(filhdr))
- return 0;
-
- if (filhdr.fmagic != FMAGIC && filhdr.fmagic != NMAGIC)
- return 0;
-
- /*
- * Warn user if entry point does not tie up.
- */
-
- if (filhdr.entry != par_entry)
- (void) fprintf(stderr, "Warning: File has -R%X\n", filhdr.entry);
-
- outf->ef_entry = filhdr.entry;
- outf->ef_tbase = filhdr.entry;
- outf->ef_dbase = filhdr.tsize + filhdr.entry;
-
- if (filhdr.fmagic == NMAGIC)
- outf->ef_dbase = (outf->ef_dbase + par_round) & (~par_round);
-
- outf->ef_bbase = outf->ef_dbase + filhdr.dsize;
- outf->ef_end = outf->ef_bbase + filhdr.bsize;
-
- outf->ef_tsize = filhdr.tsize;
- outf->ef_dsize = filhdr.dsize;
- outf->ef_bsize = filhdr.bsize;
-
- (void) lseek(inf, offset + TEXTPOS, 0);
-
- size = outf->ef_tsize;
-
- while (size > 1) {
- l = size > DBSIZE? DBSIZE: size;
- if (read(inf, (char *)inbuf, l) != l)
- return 0;
- l /= 2;
- for (i = 0; i < l; i++) {
- tstr.t_contents = inbuf[i];
- (void) write(outf->ef_t, (char *)&tstr, sizeof(tstr));
- }
- size -= l + l;
- }
-
- /*
- * Extra one to cope with "etext".
- */
-
- (void) write(outf->ef_t, (char *)&tstr, sizeof(tstr));
- return 1;
-}
-
-/*
- * Same sort of thing for the data segment.
- */
-
-int rdata(inf, offset, outf)
-int inf; /* a.out file (possibly in library) */
-long offset; /* Offset from start of inf of a.out file */
-ef_fid outf; /* Output file descriptor */
-{
- d_entry dstr;
- struct bhdr filhdr;
- register long size;
- register int i, l;
- unsigned char inbuf[DBSIZE];
-
- /*
- * Initialise fields in structure.
- */
-
- dstr.d_type = D_BYTE;
- dstr.d_reloc = R_NONE;
- dstr.d_lng = 1;
- dstr.d_relsymb = NULL;
- dstr.d_reldisp = 0;
- dstr.d_lab = NULL;
-
- /*
- * Read a.out header.
- */
-
- (void) lseek(inf, offset, 0);
-
- if (read(inf, (char *)&filhdr, sizeof(filhdr)) != sizeof(filhdr))
- return 0;
-
- (void) lseek(inf, offset + DATAPOS, 0);
-
- size = outf->ef_dsize;
-
- while (size > 0) {
- l = size > DBSIZE? DBSIZE: size;
- if (read(inf, (char *)inbuf, l) != l)
- return 0;
- for (i = 0; i < l; i++) {
- dstr.d_contents = inbuf[i];
- (void) write(outf->ef_d, (char *)&dstr, sizeof(dstr));
- }
- size -= l;
- }
-
- /*
- * Repeat for BSS segment.
- */
-
- dstr.d_contents = 0;
- for (size = outf->ef_bsize; size > 0; size--)
- (void) write(outf->ef_d, (char *)&dstr, sizeof(dstr));
-
- /*
- * Extra one to cope with "end".
- */
-
- (void) write(outf->ef_d, (char *)&dstr, sizeof(dstr));
- return 1;
-}
-
-/*
- * Process symbol table segment.
- */
-
-int rsymb(inf, offset, dproc, outf)
-int inf; /* a.out file (possibly in library) */
-long offset; /* Offset from start of inf of a.out file */
-symbol (*dproc)();
-register ef_fid outf; /* Output file descriptor */
-{
- register symbol csym;
- struct bhdr filhdr;
- struct sym isym;
- register long size;
- register int i, l;
- char inbuf[SYMLENGTH+1];
-
- /*
- * Read a.out header.
- */
-
- (void) lseek(inf, offset, 0);
-
- if (read(inf, (char *)&filhdr, sizeof(filhdr)) != sizeof(filhdr))
- return 0;
-
- offset += SYMPOS;
- size = filhdr.ssize;
- if (size <= 0)
- return 1;
-
- /*
- * Guesstimate symbol table vector size.
- */
-
- l = size / (sizeof(struct sym) + 4);
- if (l <= 0)
- l = STINIT;
-
- outf->ef_stvec = (symbol *) malloc(l * sizeof(symbol));
- if (outf->ef_stvec == NULL)
- nomem();
-
- outf->ef_stcnt = 0;
- outf->ef_stmax = l;
-
- while (size > sizeof(struct sym)) {
- (void) lseek(inf, offset, 0);
- if (read(inf, (char *)&isym, sizeof(isym)) != sizeof(isym))
- return 0;
- size -= sizeof(isym);
- l = SYMLENGTH;
- if (l > size)
- l = size;
- if (read(inf, inbuf, l) != l)
- return 0;
- inbuf[l] = '\0';
- for (i = 0; inbuf[i] != '\0'; i++)
- ;
- size -= i + 1;
- offset += sizeof(isym) + i + 1;
- csm = (*dproc)(lookup(inbuf), isym.stype, isym.svalue, outf);
- if (outf->ef_stcnt >= outf->ef_stmax)
- reallst(outf);
- outf->ef_stvec[outf->ef_stcnt++] = csym;
- }
- return 1;
-}
-
-/*
- * Process relocation stuff. -1 error, 0 no relocation, 1 relocation.
- */
-
-int rrel(inf, offset, outf)
-int inf; /* a.out file (possibly in library) */
-long offset; /* Offset from start of inf of a.out file */
-ef_fid outf; /* Output file descriptor */
-{
- struct bhdr filhdr;
- struct reloc crel;
- t_entry tstr;
- d_entry dstr;
- register long size;
- long cont, pos;
-
- /*
- * Read a.out header.
- */
-
- (void) lseek(inf, offset, 0);
-
- if (read(inf, (char *)&filhdr, sizeof(filhdr)) != sizeof(filhdr))
- return -1;
- if (filhdr.rtsize <= 0 && filhdr.rdsize <= 0)
- return 0;
-
- size = filhdr.rtsize;
-
- (void) lseek(inf, RTEXTPOS + offset, 0);
- while (size >= sizeof(struct reloc)) {
- if (read(inf, (char *)&crel, sizeof(crel)) != sizeof(crel))
- return -1;
-
- pos = crel.rpos + outf->ef_tbase;
- gette(outf, pos, &tstr);
- tstr.t_reloc = crel.rsize + 1; /* Fiddle! YUK!!! */
- tstr.t_rdisp = crel.rdisp;
- tstr.t_rptr = crel.rsegment;
- if (crel.rsegment == REXT) {
- if (crel.rsymbol >= outf->ef_stcnt)
- return -1;
- tstr.t_relsymb = outf->ef_stvec[crel.rsymbol];
- tstr.t_reldisp = gettw(outf, pos, (int)crel.rsize+1);
- }
- else {
- cont = gettw(outf, pos, (int)crel.rsize+1);
- tstr.t_relsymb = getnsymb(outf, crel.rsegent, cont);
- }
- tstr.t_relsymb->s_used++;
- putte(outf, pos, &tstr);
- size -= sizeof(crel);
- }
-
- /*
- * And now repeat all that for data relocations.
- */
-
- size = filhdr.rdsize;
-
- (void) lseek(inf, RDATAPOS + offset, 0);
- while (size >= sizeof(struct reloc)) {
- if (read(inf, (char *)&crel, sizeof(crel)) != sizeof(crel))
- return -1;
-
- pos = crel.rpos + outf->ef_dbase;
- getde(outf, pos, &dstr);
- dstr.d_reloc = crel.rsize + 1; /* Fiddle! YUK!!! */
- dstr.d_rptr = crel.rsegment;
-
- if (crel.rsegment == REXT) {
- if (crel.rsymbol >= outf->ef_stcnt)
- return -1;
- dstr.d_relsymb = outf->ef_stvec[crel.rsymbol];
- dstr.d_reldisp = getdw(outf, pos, (int)crel.rsize+1);
- }
- else {
- cont = getdw(outf, pos, (int)crel.rsize+1);
- dstr.d_relsymb = getnsymb(outf, crel.rsegment, cont);
- if (dstr.d_relsymb->s_type == TEXT) {
- gette(outf, cont, &tstr);
- tstr.t_dref = 1;
- putte(outf, cont, &tstr);
- }
- }
- switch (crel.rsize) {
- default:
- unimpl("Data byte relocation");
- break;
- case RWORD:
- unimpl("data word reloc");
- dstr.d_type = D_WORD;
- dstr.d_lng = 2;
- setde(outf, pos+1, D_CONT, 1);
- break;
- case RLONG:
- dstr.d_type = D_ADDR;
- dstr._lng = 4;
- setde(outf, pos+1, D_CONT, 1);
- setde(outf, pos+2, D_CONT, 1);
- setde(outf, pos+3, D_CONT, 1);
- break;
- }
- dstr.d_relsymb->s_used++;
- putde(outf, pos, &dstr);
- size -= sizeof(crel);
- }
- return 1;
-}
-
-/*
- * Process a symbol.
- */
-
-symbol dosymb(sy, type, val, fid)
-register symbol sy;
-int type;
-long val;
-ef_fid fid;
-{
- t_entry tstr;
- d_entry dstr;
-
- if (!sy->s_newsym) {
- if (type & EXTERN) {
- (void) fprintf(stderr, "Duplicate symbol %s\n", sy->s_name);
- exit(10);
- }
- if (++sy->s_defs > nmods)
- nmods = sy->s_defs;
- sy = inventsymb("DUP");
- }
-
- sy->s_value = val;
-
- switch (type) {
- default:
- return NULL;
-
- case EXTERN|UNDEF:
- if (val != 0) {
- sy->s_type = COMM;
- addit(&comtab, sy);
- }
- else
- sy->s_type = N_UNDF;
- sy->s_glob = 1;
- break;
-
- case EXTERN|ABS:
- sy->s_type = N_ABS;
- sy->s_glob = 1;
- addit(&abstab, sy);
- break;
-
- case ABS:
- sy->s_type = N_ABS;
- addit(&abstab, sy);
- break;
-
- case EXTERN|TEXT:
- case TEXT:
- sy->s_type = N_TEXT;
- gette(fid, val, &tstr);
- tstr.t_bdest = 1;
- if (type & EXTERN) {
- tstr.t_gbdest = 1;
- sy->s_glob = 1;
- }
- sy->s_link = tsr.t_lab;
- tstr.t_lab = sy;
- putte(fid, val, &tstr);
- break;
-
- case BSS:
- case EXTERN|BSS:
- sy->s_type = N_BSS;
- goto datrest;
- case DATA:
- case EXTERN|DATA:
- sy->s_type = N_DATA;
- datrest:
- getde(fid, val, &dstr);
- if (type & EXTERN)
- sy->s_glob = 1;
- sy->s_link = dstr.d_lab;
- dstr.d_lab = sy;
- putde(fid, val, &dstr);
- break;
- }
-
- sy->s_newsym = 0;
- return sy;
-}
-
-/*
- * Process relocation stuff in putative library modules.
- * The main function of all this is to mark which bits of the text
- * not to look at as I compare the stuff.
- *
- * As with "rrel", return -1 error, 0 no relocation, 1 relocation.
- */
-
-int rrell1(inf, offset, outf)
-int inf; /* a.out file (possibly in library) */
-long offset; /* Offset from start of inf of a.out file */
-ef_fid outf; /* Output file descriptor */
-{
- struct bhdr filhdr;
- struct reloc crel;
- t_entry tstr;
- register long size;
- long pos;
-
- /*
- * Read a.out header.
- */
-
- (void) lseek(inf, offset, 0);
-
- if (read(inf, (char *)&filhdr, sizeof(filhdr)) != sizeof(filhdr))
- return -1;
- if (filhdr.rtsize <= 0 && filhdr.rdsize <= 0)
- return 0;
-
- size = filhdr.rtsize;
-
- (void) lseek(inf, RTEXTPOS + offset, 0);
- while (size >= sizeof(struct reloc)) {
- if (read(inf, (char *)&crel, sizeof(crel)) != sizeof(crel))
- return -1;
-
- pos = crel.rpos + outf->ef_tbase;
- gette(outf, pos, &tstr);
- tstr.t_reloc = crel.rsize + 1; /* Fidde! YUK!!! */
- tstr.t_rdisp = crel.rdisp;
- tstr.t_rptr = crel.rsegment;
- tstr.t_isrel = 1;
- putte(outf, pos, &tstr);
- if (crel.rsize == RLONG) {
- gette(outf, pos+2, &tstr);
- tstr.t_isrel = 1;
- putte(outf, pos+2, &tstr);
- }
- size -= sizeof(crel);
- }
-
- /*
- * Dont bother with data relocation at this stage. We'll
- * tie that up later.
- */
-
- return 1;
-}
-
-/*
- * Process a symbol in library file. The extern variable trelpos gives
- * the place in the main file where the library module is relocated.
- * We don't know the data position until we do the final merge, perhaps
- * not even then.
- */
-
-symbol dolsymb(sy, type, val, fid)
-register symbol sy;
-int type;
-long val;
-ef_fid fid;
-{
- t_entry tstr;
-
- switch (type) {
- default:
- return NULL;
-
- case EXTERN|UNDEF:
- if (!sy->s_newsym)
- return sy;
- sy->s_value = val;
- if (val != 0) {
- sy->s_type = COMM;
- addit(&dreltab, sy);
- }
- else
- sy->s_type = N_UNDF;
- sy->s_glob = 1;
- break;
-
- case EXTERN|ABS:
- if (!sy->s_newsym) {
- if (sy->s_type != N_ABS || sy->s_value != val)
- lclash("abs");
- }
- sy->s_type = N_ABS;
- sy->s_value = val;
- sy->s_glob = 1;
- addit(&abstab, sy);
- break;
-
- case EXTERN|TEXT:
- sy->s_type = N_TEXT;
- val += trelpos - fid-ef_tbase;
- if (!sy->s_newsym) {
- if (val != sy->s_value)
- lclash("tsym");
- return sy;
- }
- sy->s_value = val;
- gette(&mainfile, val, &tstr);
- tstr.t_bdest = 1;
- tstr.t_gbdest = 1;
- sy->s_glob = 1;
- sy->s_link = tstr.t_lab;
- tstr.t_lab = sy;
- putte(&mainfile, val, &tstr);
- break;
-
- case EXTERN|BSS:
- if (!sy->s_newsym)
- return sy;
- sy->s_type = N_BSS;
- sy->s_value = val - fid->ef_bbase;
- goto datrest;
-
- case EXTERN|DATA:
- if (!sy->s_newsym)
- return sy;
- sy->s_type = N_DATA;
- sy->s_value = val - fid->ef_dbase;
- datrest:
- sy->s_glob = 1;
- addit(&dreltab, sy);
- break;
- }
-
- sy->s_newsym = 0;
- return sy;
-}
-
-/*
- * Change definition of undefined symbol as we define it.
- */
-
-void reassign(sy, val)
-register symbol sy;
-long val;
-{
- sy->s_value = val;
-
- if (val < mainfile.ef_tbase) {
- sy->s_type = N_ABS;
- addit(&abstab, sy);
- }
- else if (val < mainfile.ef_dbase) {
- t_entry tstr;
-
- sy->s_type = N_TEXT;
- gette(&mainfile, val, &tstr);
- tstr.t_bdest = 1;
- tstr.t_gbdest = 1;
- sy->s_glob = 1;
- sy->s_link = tstr.t_lab;
- tstr.t_lab = sy;
- putte(&mainfile, val, &tstr);
- }
- else {
- d_entry dstr;
-
- sy->s_type = val < mainfile.ef_bbase? N_DATA: N_BSS;
- getde(&mainfile, val &dstr);
- sy->s_link = dstr.d_lab;
- dstr.d_lab = sy;
- putde(&mainfile, val, &dstr);
- }
-}
-
-/*
- * When we discover where bss or data come, reallocate the table.
- */
-
-void zapdat(seg, inc)
-int seg;
-long inc;
-{
- register int i;
- register symbol csymb;
- d_entry dent;
-
- for (i = 0; i < dreltab.c_int; i++) {
- csymb = dreltab.c_symb[i];
- if (csymb->s_type != seg)
- continue;
- csymb->s_value += inc;
- getde(&mainfile, csymb->s_value, &dent);
- csymb->s_link = dent.d_lab;
- dent.d_lab = csymb;
- putde(&mainfile, csymb->s_value, &dent);
- }
-}
-
-/*
- * Process relocation stuff in library module which we are inserting.
- * Horrors if something goes wrong.
- */
-
-void rrell2(inf, offset, outf)
-int inf; /* a.out file (possibly in library) */
-long offset; /* Offset from start of inf of a.out file */
-ef_fid outf; /* Output file descriptor */
-{
- struct bhdr filhdr;
- struct reloc crel;
- t_entry mtstr;
- d_entry mdstr;
- register long size;
- register symbol csymb;
- long pos, mpos, mval, lval;
- int dhere = 0; /* Mark whether bss done */
-
- /*
- * Read a.out header.
- */
-
- (void) lseek(inf, offset, 0);
-
- if (read(inf, (char *)&filhdr, sizeof(filhdr)) != sizeof(filhdr))
- return;
- if (filhdr.rtsize <= 0 && filhdr.rdsize <= 0)
- return;
-
- size = filhdr.rtsize;
-
- (void) lseek(inf, RTEXTPOS + offset, 0);
- for (; size >= sizeof(struct reloc); size -= sizeof(crel)) {
- if (read(inf, (char *)&crel, sizeof(crel)) != sizeof(crel))
- lclash("rd rel");
-
- pos = crel.rpos + outf->ef_tbase;
- mpos = crel.rpos + trelpos;
- gette(&mainfile, mpos, &mtstr);
- lval = gettw(outf, pos, (int)crel.rsize+1);
- mval = gettw(&mainfile, mpos, (int)crel.rsize+1);
-
- switch (crel.rsegment) {
- case RTEXT:
- if (lval + trelpos - outf->ef_tbase != mval)
- lclash("Trel");
- continue;
- case RDATA:
- if (donedrel) {
- if (lval + drelpos - outf->ef_dbase != mval)
- lclash("Drel");
- }
- else {
- donedrel++;
- drelpos = mval - lval + outf->ef_dbase;
- }
- continue;
- case RBSS:
- if (donebrel) {
- if (lval + brelpos - outf->ef_bbase != mval)
- lclash("brel");
- }
- else {
- donebrel++;
- brelpos = mval - lval + outf->ef_bbase;
- }
- continue;
- case REXT:
- if (crel.rsymbol >= outf->ef_stcnt)
- lclash("Bad sy no");
- csymb = outf->ef_stvec[crel.rsymbol];
- if (csymb == NULL)
- continue;
- switch (csymb->s_type) {
- case N_UNDF:
- reassign(csymb, mval - lval);
- break;
- case N_ABS:
- if (lval + csymb->s_value != mval)
- lclash("abs rel");
- break;
- case N_TEXT:
- if (lval + csymb->s_value != mval)
- lclash("text rel");
- break;
- case N_DATA:
- if (lval + csymb->s_value != mval)
- lclash("data rel");
- break;
- case N_BSS:
- if (lval + csymb->s_value != mval)
- lclash("bss rel");
- break;
- case COMM:
- reassign(csymb, mval - lval);
- break;
- }
- mtstr.t_relsymb = csymb;
- mtstr.t_reldisp = lval;
- break;
- }
- }
-
- /*
- * Relocate data and bss if possible.
- */
-
- if (donebrel) {
- zapdat(N_BSS, brelpos);
- dhere++;
- }
-
- if (!donedrel)
- return;
-
-
- zapdat(N_DATA, drelpos);
-
- /*
- * And now repeat all that for data relocations if possible
- */
-
- size = filhdr.rdsize;
-
- (void) lseek(inf, RDATAPOS + offset, 0);
- for (; size >= sizeof(struct reloc); size -= sizeof(crel)) {
- if (read(inf, (char *)&crel, sizeof(crel)) != sizeof(crel))
- lclash("Rd drel");
-
- if (crel.rsize != RLONG)
- continue;
-
- pos = crel.rpos + outf->ef_dbase;
- mpos = crel.rpos + drelpos;
- getde(&mainfile, mpos, &mdstr);
- lval = getdw(outf, pos, (int)crel.rsize+1);
- mval = getdw(&mainfile, mpos, (int)crel.rsize+1);
- switch (crel.rsegment) {
- case RTEXT:
- if (lval + trelpos - outf->ef_tbase != mval)
- lclash("Trel-d");
- continue;
- case RDATA:
- if (lval + drelpos - outf->ef_dbase != mval)
- lclash("Drel-d");
- continue;
- case RBSS:
- if (donebrel) {
- if (lval + brelpos - outf->ef_bbase != mval)
- lclash("brel");
- }
- else {
- donebrel++;
- brelpos = mval - lval + outf->ef_bbase;
- }
- continue;
- case REXT:
- if (crel.rsymbol >= outf->ef_stcnt)
- lclash("Bad sy no");
- csymb = outf->ef_stvec[crel.rsymbol];
- if (csymb == NULL)
- continue;
- switch (csymb->s_type) {
- case N_UNDF:
- reassign(csymb, mval - lval);
- break;
- case N_ABS:
- if (lval + csymb->s_value != mval)
- lclash("abs rel");
- break;
- case N_TEXT:
- if (lval + csymb->s_value != mval)
- lclash("text rel");
- break;
- case N_DATA:
- if (lval + csymb->s_value != mval)
- lclash("data rel");
- break;
- case N_BSS:
- if (lval + csymb->s_value != mval)
- lclash("bss rel");
- break;
- case COMM:
- reassign(csymb, mval - lval);
- break;
- }
- mtstr.t_relsymb = csymb;
- mtstr.t_reldisp = lval;
- break;
- }
- }
-
- if (dhere || !donebrel)
- return;
-
- zapdat(N_BSS, brelpos);
-}
//GO.SYSIN DD robj.c
--
John M Collins ....mcvax!ist!inset!jmc
Phone: +44 727 57267
Snail Mail: 47 Cedarwood Drive, St Albans, Herts, AL4 0DN, England.
brelpos = mval - lval + outf->ef_bbase;
- }
-